Excel VBA and starting URL by clicking Shapes ???

keldsor 

If you want to open the URL in the default browser for each user, you can use the FollowHyperlink method of the Application object instead of using the Shell function.

Here’s an example:

Sub OpenURL(URL As String)
    Application.FollowHyperlink URL
End Sub

This code uses the FollowHyperlink method to open the URL in the default browser for the current user. You can call this function from your findLinkTilVielsen subroutine like this:

Public Sub findLinkTilVielsen(Sh As Shape)
    If Trim(Sh.Hyperlink.Address) = "" Then
        visFejlMeddelelse "No link is provided !"
    Else
        On Error GoTo notOK
        OpenURL Sh.Hyperlink.Address
        GoTo goAhead
notOK:  On Error GoTo 0
        visFejlMeddelelse "Link is corrupt !"
goAhead:
    End If
End Sub

This should open the URL in the default browser for the current user, even if the browser is not already running.

I hope this helps! 

NikolinoDE

I know I don't know anything (Socrates)