URL opzoeken met vba

[Zetje]

Ik heb een Excel bestand.
Wanneer dit gestart wordt zou ik met VBA willen controleren of een URL bestaat. Indien de URL niet bestaat moet Excel automatisch afgesloten worden.
Ik krijg het maar niet voor elkaar. Iemand een idee?

Dank bij voorbaat.

 

[HSV]

Bv.

Private Sub Workbook_Open()
 On Error GoTo einde
  ActiveWorkbook.FollowHyperlink "[URL]http://www.helpmij.nl/forum/showthread.php/837967-URL-opzoeken-met-vba[/URL]", , True
 Exit Sub
einde: Application.Quit
End Sub

 

[Zetje]

Bv.

Private Sub Workbook_Open()
 On Error GoTo einde
  ActiveWorkbook.FollowHyperlink "[URL]http://www.helpmij.nl/forum/showthread.php/837967-URL-opzoeken-met-vba[/URL]", , True
 Exit Sub
einde: Application.Quit
End Sub

Dit werkt wel, maar dan wordt die link ook geopend. Dat is dan weer niet de bedoeling.
Indien die link bestaat, mag het Excel bestand verder doorstarten zonder dat de link geopend moet worden.

 

[HSV]

Zie:
http://www.logicwurks.com/CodeExamplePages/ETestForWeb_URLExists.html

 

[Zetje]

Zie:
http://www.logicwurks.com/CodeExamplePages/ETestForWeb_URLExists.html

Prima, hier werkt het perfect mee.
Bedankt voor de hulp.