Ik heb dezelfde vraag ook eens gepost op de nieuwsgroep van excel waar ik het volgende werkend voorbeeld heb terug gekregen
Public Function URLExists(ByVal strAddress As String) As Boolean
On Error Resume Next
Dim httpSession
Dim strResult As String
Set httpSession = CreateObject("Microsoft.XMLHTTP")
httpSession.Open "GET", strAddress, False
httpSession.send
strResult = httpSession.responseText
httpSession.Close
Set httpSession = Nothing
If Len(strResult) > 1 Then
URLExists = True
Else
URLExists = False
End If
End Function
Waarvoor dank aan aan de bijdrage van de gebruiker "Moon"