URL assigned to a button

[christopher007]

Would anyone be kind enough to let me know how I can assign a url to a button, or let me know the VBA code, so that when a user clicks on a button on a spreadsheet it opens a url in the default browser. Just like as if you insert a hyperlink in a cell with the insert hyperlink button.

Thanks in advance
Chris

 

[SQLBI]

Hi,

This is from the Office 2k help files and should point you in the right direction.

Private Sub Form_Load()
    Dim ctl As CommandButton
    Set ctl = Me!Command0
    With ctl
        .Visible = False
        .HyperlinkAddress = "[URL unfurl="true"]http://www.microsoft.com/"[/URL]
        .Hyperlink.Follow
    End With
End Sub

Hope this helps.


Leigh Moore
Solutions 4 MS Office Ltd

http://www.solutions4msoffice.co.uk

 

[christopher007]

I cant make heads nor tails of this code were did you find it, i have tried looking in VBA help but only find about inserting hyperlinks in cells.

Any more help would be greatly recived.

 

[christopher007]

Found the answer to my own question:-

Private Sub CommandButton1_Click()

ActiveWorkbook.FollowHyperlink Address:="URL GOES HERE", _
NewWindow:=True

End Sub

Cheers for all the help