Как узнать есть ли в интернете нужная страница или нет?

Sub lllllll()
DisplayAlerts = False
Set shFirstQtr = Workbooks("проба.xls").Worksheets("1")
Set qtQtrResults = shFirstQtr.QueryTables.Add(Connection:="URL;http://buzdin.boom.ru/index.htm", Destination:=shFirstQtr.Cells(1, 1))
With qtQtrResults
    .WebFormatting = xlNone
    .WebSelectionType = xlSpecifiedTables
    .WebTables = "1,2"
    .Refresh
End With
End Sub

Private Function NoPage() As Boolean
    
    On Error GoTo MethodExit
'........
    Err.Raise 404 'Page not found imitation
'........
MethodExit:
    
    NoPage = Err.Number = 404
    
    If Err.Number = 404 Then
        Err.Clear
    End If
End Function
Private Sub Command1_Click()
    MsgBox "No Page: " & CStr(NoPage)
End Sub

Sub проба ()
On Error GoTo ErrorHandler
Workbooks.Open ("http://www.relib.com/index.htm http://www.relib.com/index.htm")
Application.DisplayAlerts = False
Workbooks("index.htm").Close
MsgBox "есть"
Exit Sub
ErrorHandler:
MsgBox "нет"
End Sub