Web site Accessible UDF

[JGordon11]

Looking for help with a UDF that can return True if a website at URL can be accessed. If the website does not exist, or the the computer isn't connected to the internet or some other reason the web site is not accessible the UDF would return False, otherwise True. (Or if its easier to do the opposite and if there is success return True otherwise False).

Something like

Function WebSiteAccessible(URL As String) As Boolean
    If Not (...need code for unable to connect to website at URL...) Then
        WebSiteAccessible  = True
    End If
End Function

or

Function WebSiteAccessible (URL As String) As Boolean
    If  (...need code for able to connect to website at URL...) Then
        WebSiteAccessible  = True
    End If
End Function

 

[Krayna]

Hi maybe you can adapt code from here: Check for active internet connection

 

[JGordon11]

Thanks. That link is definitely on topic. But I couldn't get of those suggestions to work.