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 vote309 views1 answer
Gridview edit update delete in asp.net textbox size
C#
0 vote320 views2 answers
How to make a chunk loader in c#
C#
0 vote320 views1 answer
Get Mouse World Position
C#
0 vote322 views1 answer
Convert int to uint C#
C#
0 vote328 views1 answer
C# ienumerable unassigned
C#
40 votes304 views5 answers
C# MessageBox
C#
0 vote338 views1 answer
Populate toolstripitems to combobox
C#
1 vote365 views1 answer
Unity c# check if multiple keys are pressed
C#Unity
11 votes321 views5 answers
C# loop through array
C#
0 vote307 views1 answer
C# get Full Exception message if InnerException is not NULL
C#