Refreshes all queries in the workbook and then waits for it to finish using Do Events between each one. Uses LogErrorMessageToXls for error logging
Public Sub RefreshPowerQueries()
On Error GoTo catch_error:
Dim cn As Object
For Each cn In ThisWorkbook.Connections
cn.Refresh
DoEvents
Next cn
Exit Sub
catch_error:
If testing_mode = True Then GoTo debug_error
Libraries.LogErrorMessageToXls "Refreshing Power Queries has failed in " & ThisWorkbook.Name, "Macro error: " & Err.Description & " in RefreshPowerQueries subroutine", "https://hp.sharepoint.com/teams/WS OEM PRGM/OCMS Reports/AutomationErrorLogs.xlsx", "ErrorLog", "tbl_ErrorLog"
ThisWorkbook.Close
debug_error:
Application.DisplayAlerts = True
End Sub