How to initiate an after-refresh event for my power query connections

[Martin sherk]

I use the below code to refresh all my queries, however, I need to initiate an after-refresh event so I can capture any errors and know if my queries didn't update successfully. How to do that with a msg box that update failed.

Sub refresh()
'Worksheets("Details").Unprotect
 Dim Connection As WorkbookConnection
    Dim bugfix As Integer
    
        For bugfix = 1 To 2

            On Error Resume Next
            
            For Each Connection In ActiveWorkbook.Connections
            
                With Connection
                
                    If (.Type = xlConnectionTypeODBC) Then
                        .ODBCConnection.BackgroundQuery = False
                    
                    Else
                    
                        If (.Type = xlConnectionTypeOLEDB) Then
                            .OLEDBConnection.BackgroundQuery = False
                    
                        End If
                    
                    End If
                
                End With
            
            Connection.refresh
            
            Next Connection
            
        Next bugfix
'Worksheets("Details").Protect , AllowFiltering:=True, AllowFormattingCells:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingColumns:=True
MsgBox "Refresh Complete"
Application.CalculateUntilAsyncQueriesDone
End Sub