Private Sub CommandButton1_Click()
If Range("A1") > 1 Then
Shell "C:\Program Files\Internet Explorer\Iexplore.exe www.google.com"
Else
End If
End Sub
this is very basic example - but you get the picture when you click the button it checks to see if cell a1 is greater than 1 - if so launch google.com or else it does nothing.