Yep, it works:

Private Sub Image1_Click()
Dim link As String
link = "
On Error GoTo NoCanDo
ThisWorkbook.FollowHyperlink Address:=link, NewWindow:=True
Unload UserForm1
Exit Sub
NoCanDo:
MsgBox "Cannot open " & link
End Sub

Cliff Edwards