Folgen auf vonmy Connections query, Ich möchte jetzt alle Verbindungen erfassen, die nicht erreicht werden können, und eine Fehlermeldung ausgeben, die besagt, dass die betreffende Verbindung nicht erreicht werden kann.

Dies ist der Code, den ich bisher habe, ich bin mir jedoch nicht sicher, ob er Fehler aufzeichnet:

Private Sub btnRefreshConns_Click()

    On Error GoTo ErrorHandler
    Dim cn As WorkbookConnection

    For Each cn In ActiveWorkbook.Connections
        cn.Refresh
    Next

    Exit Sub

ErrorHandler:
    MsgBox "A connection could not be reached" & cn.Name & ": " & cn.Description

End Sub

Kann mir jemand weiterhelfen oder mich wissen lassen, ob dieser Code funktionieren würde?