ActiveWorkbook.FollowHyperlink met foutmelding indien er geen internetverbinding is.

[oceanrace]

Hallo,

Is het mogelijk om een foutmelding (msgbox) in deze macro te bouwen als er geen verbinding met het internet is?

Sub GoogleMaps()
    sq = [A2] & " " & [B2] & " " & [C2]
    ActiveWorkbook.FollowHyperlink "http://www.google.nl/search?hl=nl&source=hp&q=" & sq
End Sub

 

[Cobbe]

Zo heb ik het getest en het werkt, de fout wordt ondervangen met een MSG.

Sub GoogleMaps()
On Error GoTo Fout

    sq = [A2] & " " & [B2] & " " & [C2]
    ActiveWorkbook.FollowHyperlink "http://www.google.nl/search?hl=nl&source=hp&q=" & sq
GoTo eind
 Fout:
      MsgBox ("Er is iets mis met uw URL !") 
 eind:
End Sub

Cobbe

 

[oceanrace]

Bedankt! Ik zet de vraag op opgelost...