Hyperlink Method
Private Sub CommandButton1_Click()
NewWindow:=True
End Sub
Hyperlink Method - Based on Caption
Private Sub CommandButton1_Click()
CommandButton1.Caption = "http://www.Tricks12345.com"
CommandButton1.Parent.Parent.FollowHyperlink CommandButton1.Caption
End Sub