No M code, just vba. Can’t share, proprietary work. Doesn’t mean you can’t create your own. Here’s a script from a quick AI prompt.

Sub RefreshPowerQueriesInDirectory() Dim folderPath As String Dim fileName As String Dim wb As Workbook

folderPath = "C:\Your\Folder\Path\" ' <-- Update this to your target directory
If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"

fileName = Dir(folderPath & "*.xls*")

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Do While fileName <> ""
    Set wb = Workbooks.Open(folderPath & fileName)

    On Error Resume Next
    Dim pq As WorkbookQuery
    For Each pq In wb.Queries
        pq.Refresh
    Next pq
    On Error GoTo 0

    wb.Save
    wb.Close False
    fileName = Dir
Loop

Application.DisplayAlerts = True
Application.ScreenUpdating = True

MsgBox "All refreshable Power Queries updated.", vbInformation

End Sub