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

0 vote132 views1 answer
Do loop c#
C#
0 vote135 views1 answer
Largest prime factor of a number
C#
0 vote163 views1 answer
New guid c# always returns 0
C#
0 vote149 views1 answer
C# execute run control panel
C#
0 vote151 views1 answer
Selecting multiple columns with linq query and lambda expression
C#
0 vote154 views1 answer
Degree between two points latitude longitude c#
C#
2 votes131 views1 answer
C# actions
C#
0 vote151 views1 answer
C# httpclient post no content
C#
0 vote143 views1 answer
Xamarin set environment variables
C#
1 vote155 views1 answer
How to convert from hexadecimal to binary in c#
C#