...and just to give an alternative to the "Call"...you can try this out - same basic build (this one will also allow for the use of other urls...note that there are parameters that you can change to further customize the outcome)
In a Standard Module:
Option Explicit
Private Declare Function GetDesktopWindow Lib "user32" () As Long
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
Private Const SW_SHOWNORMAL As Long = 1
Private Const SW_SHOWMAXIMIZED As Long = 3
Private Const SW_SHOWDEFAULT As Long = 10
Sub RunShellExecute(ByVal sFile As Variant)
Dim hWndDesk As Long
Dim success As Long
Const SE_ERR_NOASSOC = &H31
hWndDesk = GetDesktopWindow()
success = ShellExecute(hWndDesk, "Open", sFile, 0&, 0&, 3)
End Sub
Sub webpage1()
RunShellExecute http://www.vbaexpress.com/forum
End Sub
Sub webpage2()
RunShellExecute http://www.anywhere you want to go.com
End Sub
and for the Userform:
Private Sub Image1_Click()
webpage1
End Sub
Private Sub Image2_Click()
webpage2
End Sub
Let me know how you manage.
X