Tip Custom menu - link to webpage (1 Viewer)

[mattkorguk]

Hi,
I've just sorted this by creating a very small module to assist. This means you don't have to create lots of macros for you menu items, it can also be adapted to open forms too.

Public Function OpenWeb(WebAddr As String)
On Error GoTo Err_Handler
    FollowHyperlink WebAddr
    Exit Function
Err_Handler:
    MsgBox Err.Description & " / " & Err.Number
End Function

Then when you're setting up your new menu, where you would normally add a macro, you can use;

=OpenWeb("[URL]http://www.google.co.uk[/URL]")

Hopefully someone might find this useful.

 

[mattkorguk]

This can also be used to open local files...

=OpenWeb("C:\Documents\TestMovie.exe")