Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$10" Then
        If Target.Text <> "" Then
            Sheets("РЗ 2-ой с").Visible = True
        Else
            Sheets("РЗ 2-ой с").Visible = False
        End If
    End If
End Sub

"finance": {
        "error": {
            "code": "Unauthorized",
            "description": "Invalid cookie"
        }
    }

#If VBA7 Then
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds as Long) 'For 32 Bit Systems
#End If

'''

With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
     .SetText "D:\example.xml"
     .PutInClipboard
End With
btnInput.Focus
Application.SendKeys " "
Sleep (250)
Application.SendKeys "^v"
Sleep (100)
Application.SendKeys "{ENTER}"

Cells(1, 1) = IE.Document.getElementsByClassName("res-text")(0).innerText

    Dim a_pages As Variant, p As Variant, q As Variant
    Dim url As String
    a_pages = Sheets("Начало").[m7:m11]
    url = Sheets("Начало").Cells(5, 13)
    For Each p In a_pages
        Sheets("" & p & "").Activate
        Sheets("" & p & "").Cells.Clear
        For Each q In Sheets("" & p & "").QueryTables
            q.Delete
        Next
        With ActiveSheet.QueryTables.Add(Connection:= _
            "URL;" & url & p, Destination:=[a1])
            .WebSelectionType = xlEntirePage
            .WebFormatting = xlWebFormattingNone
            .Refresh BackgroundQuery:=False
        End With
    Next