Dim WithEvents q As QueryTable

Private Sub q_AfterRefresh(ByVal Success As Boolean)
Debug.Print "AfterRefresh", Now
End Sub

Private Sub q_BeforeRefresh(Cancel As Boolean)
Debug.Print "BeforeRefresh", Now
End Sub

Private Sub Workbook_Open()
Application.OnTime Now, Me.Name & ".Start"
End Sub

Sub Start()
Set q = Sheet2.QueryTables(1)
End Sub

Set q = Sheet2.QueryTables(1)

Sub NewMacros()
     For Each CON In ThisWorkbook.Connections
        CON.OLEDBConnection.BackgroundQuery = False 'Чтобы макрос дальше не выполнялся пока не обновится пивот.
        CON.Refresh
    Next
End Sub

Public Sub RefreshConnections()
    Dim pConn As WorkbookConnection
    Dim refreshableConn As Object
    For Each pConn In ThisWorkbook.Connections
        Set refreshableConn = Nothing
        If pConn.Type = xlConnectionTypeOLEDB Then
            Set refreshableConn = pConn.OLEDBConnection
        ElseIf pConn.Type = xlConnectionTypeODBC Then
            Set refreshableConn = pConn.ODBCConnection
        End If
        If Not refreshableConn Is Nothing Then
            refreshableConn.Refresh
            Do While refreshableConn.Refreshing
            Loop
        End If
    Next
End Sub

Sub OneMoreMacros()
'
' OneMoreMacros Макрос
'
'
' Заходим первый раз
ChDir "\\fs\documents$\ArchiveDocuments\Работа"
Workbooks.Open Filename:= _
"\\fs\documents$\ArchiveDocuments\Работа\DBd-DIV v.1936-1 - Copy - Copy.xlsb"
ActiveWorkbook.RefreshAll
ActiveWorkbook.Save
ActiveWindow.Close
' Заходим второй раз
Workbooks.Open Filename:= _
"\\fs\documents$\ArchiveDocuments\Работа\DBd-DIV v.1936-1 - Copy - Copy.xlsb"
With ActiveWorkbook.SlicerCaches("Срез_Срезы_отчетов1")
.SlicerItems("Таб1").Selected = True
.SlicerItems("Таб2").Selected = False
.SlicerItems("Таб3").Selected = False
.SlicerItems("Таб4").Selected = False
.SlicerItems("Таб5").Selected = False
End With

MsgBox "Заходим Application.Wait"
Application.Wait (Now + TimeValue("0:59:30"))
MsgBox "Выходим Application.Wait"
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Private Sub Workbook_Open()
'    ...
'    ...
    Application.OnTime Now + TimeValue("00:50:00"), "CloseBook"
End Sub

Sub CloseBook()
    ThisWorkbook.Close SaveChanges:=True
End Sub