= Table.TransformColumns(#"Добавлен пользовательский объект", {"по строчно", each Text.Combine(List.Transform(_, Text.From), "#(lf)"), type text})

VBProj_Doc1.Msg

Option Explicit

Dim wb As Workbook
Dim IsRefreshing As Boolean
Dim tRefreshTime

Private Sub Main_UpdateAllData_WaitPQ()
    Dim calcMode As XlCalculation

    Set wb = ThisWorkbook
'    Application.ScreenUpdating = False
'    calcMode = Application.Calculation
'    Application.Calculation = xlCalculationManual
'    Application.DisplayAlerts = False

    wb.RefreshAll
    Application.OnTime Now + TimeSerial(0, 0, 0), "'" & ThisWorkbook.Name & "'!UpdateAllData_WaitPQ"

'    Application.Calculation = calcMode
'    Application.ScreenUpdating = True
'    Application.DisplayAlerts = True
End Sub

Private Sub UpdateAllData_WaitPQ()
Dim qt As QueryTable
Dim ws As Worksheet
Dim lo As ListObject
Dim pt As PivotTable

Dim toolong As Boolean
Dim t As Date


    t = Now

    On Error GoTo fin

'    Do
        If Now - t > TimeSerial(0, 0, 30) Then
            If MsgBox("Для обновления необходимо еще какое-то время. Продолжить?", vbQuestion + vbYesNo) = vbNo Then
'                toolong = True
                Exit Sub
            Else
                t = Now
            End If
        End If

        IsRefreshing = False

        For Each ws In wb.Worksheets
            For Each lo In ws.ListObjects
                Set qt = getLoQueryTable(lo)
                If Not qt Is Nothing Then
                    IsRefreshing = qt.refreshing
                    Debug.Print qt.Connection & " " & IsRefreshing
                    If IsRefreshing Then Exit For
                End If
                DoEvents
            Next lo
            If IsRefreshing Then Exit For
        Next ws

'    Loop Until Not IsRefreshing Or toolong

    If IsRefreshing Then
'        Err.Raise vbObjectError + 513, , "Обновление не завершено!"
        'запросы не обновились - даем еще время, при этом Excel будет запросы обрабатывать
        DoEvents
        tRefreshTime = Now + TimeSerial(0, 0, 5)
        Application.OnTime tRefreshTime, "'" & ThisWorkbook.Name & "'!UpdateAllData_WaitPQ"
        
    Else
        On Error Resume Next
        Application.OnTime tRefreshTime, "'" & ThisWorkbook.Name & "'!UpdateAllData_WaitPQ", 0, False
        On Error GoTo 0
        If Not wb.Model Is Nothing Then
            wb.Model.Refresh
        End If
    
        For Each ws In wb.Worksheets
            For Each pt In ws.PivotTables
                pt.PivotCache.Refresh
                pt.RefreshTable
            Next pt
        Next ws
    
        MsgBox "Обновление завершено!", vbInformation
    End If

fin:
    If Err.Number <> 0 Then MsgBox "Внимание: " & Err.Description, vbCritical
End Sub

Private Function getLoQueryTable(lo As ListObject) As QueryTable
On Error Resume Next
    Set getLoQueryTable = lo.QueryTable
On Error GoTo 0
End Function

Option Explicit

Dim wb As Workbook
Private Sub Main_UpdateAllData_WaitPQ()
    Dim calcMode As XlCalculation
    
    Set wb = ThisWorkbook
    Application.ScreenUpdating = False
    calcMode = Application.Calculation
    Application.Calculation = xlCalculationManual
    Application.DisplayAlerts = False
    
    wb.RefreshAll
    Application.OnTime Now + TimeSerial(0, 0, 1), "'" & ThisWorkbook.Name & "'!UpdateAllData_WaitPQ"
    
    Application.Calculation = calcMode
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

Private Sub UpdateAllData_WaitPQ()
Dim qt As QueryTable
Dim ws As Worksheet
Dim lo As ListObject
Dim pt As PivotTable
Dim refreshing As Boolean

Dim toolong As Boolean
Dim t As Date
 
    
    t = Now
     
    On Error GoTo fin

    Do
        If Now - t > TimeSerial(0, 0, 30) Then
            If MsgBox("Для обновления необходимо еще какое-то время. Продолжить?", vbQuestion + vbYesNo) = vbNo Then
                toolong = True
            Else
                t = Now
            End If
        End If
         
        refreshing = False
         
        For Each ws In wb.Worksheets
            For Each lo In ws.ListObjects
                Set qt = getLoQueryTable(lo)
                If Not qt Is Nothing Then
                    refreshing = qt.refreshing
                    Debug.Print qt.Connection & " " & refreshing
                    If refreshing Then Exit For
                End If
                DoEvents
            Next lo
            If refreshing Then Exit For
        Next ws
         
    Loop Until Not refreshing Or toolong
     
    If refreshing Then Err.Raise vbObjectError + 513, , "Обновление не завершено!"
    If Not wb.Model Is Nothing Then
        wb.Model.Refresh
    End If
     
    For Each ws In wb.Worksheets
        For Each pt In ws.PivotTables
            pt.PivotCache.Refresh
            pt.RefreshTable
        Next pt
    Next ws
     
    MsgBox "Обновление завершено!", vbInformation
     
fin:
    
     
    If Err.Number <> 0 Then MsgBox "Внимание: " & Err.Description, vbCritical
     
End Sub
 
Private Function getLoQueryTable(lo As ListObject) As QueryTable
On Error Resume Next
    Set getLoQueryTable = lo.QueryTable
On Error GoTo 0
End Function

Err.Clear
If conn.OLEDBConnection.Refreshing Then
    If Err.Number Then 'это чтобы хоть видеть есть ошибки или нет
        Debug.Print Err.Description
    End If
    allDone = False
    Exit For
End If

Sub RefreshAllAndWait()
    ' Запускаем обновление всех запросов Power Query
    ThisWorkbook.RefreshAll
    ' Ждем завершения обновления
    Dim conn As WorkbookConnection
    Dim allDone As Boolean
    Do
        DoEvents ' Позволяет Excel обновить интерфейс
        allDone = True
        For Each conn In ActiveWorkbook.Connections
            On Error Resume Next ' Игнорируем ошибки, если свойство Refreshing недоступно
            Err.Clear
            Select Case conn.Type
            Case xlConnectionTypeODBC
                If conn.ODBCConnection.Refreshing Then
                    allDone = False
                End If
            Case xlConnectionTypeOLEDB
                If conn.OLEDBConnection.Refreshing Then
                    allDone = False
                End If
            End Select
            If allDone = False Then
                Exit For
            End If
            On Error GoTo 0
        Next conn
    Loop Until allDone
    MsgBox "Все запросы Power Query успешно обновлены!", vbInformation
End Sub

<group id="gr" label="Test" centerVertically="true">
   <button id="test1" label="center1" />
   <button id="test2" label="center2"/>
</group>

Set oRange1 = Worksheets("Лист1").Range("C1")

    Dim rr As Range
    Set rr = Range(ThisWorkbook.Sheets(sheetNew).ListObjects(1).Name & "[verifyFull]")
    If Not rr Is Nothing Then
        MsgBox "Yes"
    Else
        MsgBox "No!"
    End If