Put the following in a standard module:

Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Public Enum eWindowState
wsNormal = 1
wsMin = 2
wsMax = 3
End Enum

Public Function OpenLocation(URL As String, WindowState As
eWindowState) As Long

Dim hwnd As Long
Dim retHwnd As Long

retHwnd = ShellExecute(hwnd, "open", URL, vbNullString,
vbNullString, WindowState)
OpenLocation = retHwnd

End Function


HTH,

Nick Hebb
http://www.breezetree.com