Error handling function shows empty message after queries refresh

[Martin sherk]

I use the below code to refresh my queries, also i use a Go to Error handler and it works but when there is no error an empty message pops up, how can i get rid of that

Sub refresh()


 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
            On Error GoTo MyError
            Connection.refresh
            
            Next Connection
            
        Next bugfix


MsgBox "Refresh Complete"
MyError:
MsgBox (Err.Description)


End Sub

 

[JGordon11]

insert a line

Exit Sub

before

MyError: