Excel isrlgood

Public Function IsURLGood(url As String)
    Dim request As Object
    Set request = CreateObject("WinHttp.WinHttpRequest.5.1")
    On Error GoTo haveError
    With request
        .Open "HEAD", url
        .Send
        IsURLGood = .Status
    End With
    Exit Function
haveError:
    IsURLGood = Err.Description
End Function

Similar codes

4 votes200 views2 answers
Byte array to hex c#
C#
4 votes235 views2 answers
Ontriggerenter2d
C#
1 vote201 views1 answer
How can I cast string to enum?
C#
0 vote201 views3 answers
Loops in coding
C#
4 votes202 views1 answer
How to edit postprocessing through script
C#
0 vote214 views1 answer
First sentence letter capital in c#
C#
1 vote152 views1 answer
How to remove all buttons on a form C#
C#
0 vote207 views2 answers
C# copy directory
C#
0 vote208 views2 answers
C# how to get a file path from user
C#
11 votes194 views3 answers
Dark Souls
C#