How To Bypass A Webquery Error Message

[Excel Fox]

Try this

Sub WEEKLY_Update()

    Application.ScreenUpdating = False
    Workbooks.Open Filename:=Sheets("Sheet1").Range("R3").Value & Sheets("Sheet1").Range("S3").Value
    Call QueryError("'" & ActiveWorkbook.Name & "'!GetQuery")
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Sheet2").Select
    If Not QueryError("'" & ActiveWorkbook.Name & "'!CutCopySelectAll") Then
        ActiveWorkbook.Save
        ActiveWorkbook.Close
    Else
        ActiveWorkbook.Close False
    End If


    Workbooks.Open Filename:=Sheets("Sheet1").Range("R3").Value & Sheets("Sheet1").Range("S4").Value
    Call QueryError("'" & ActiveWorkbook.Name & "'!GetQuery")
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Sheet2").Select
    If Not QueryError("'" & ActiveWorkbook.Name & "'!CutCopySelectAll") Then
        ActiveWorkbook.Save
        ActiveWorkbook.Close
    Else
        ActiveWorkbook.Close False
    End If


    Application.ScreenUpdating = True


End Sub


Function QueryError(strQueryToRun As String) As Boolean
    
    On Error Resume Next
    Application.Run strQueryToRun "'" & ActiveWorkbook.Name & "'!GetQuery"
    If Err.Number Then
        Err.Clear: On Error GoTo 0: On Error GoTo -1
        QueryError = True
    End If
    
End Function