Исходя измой запрос на соединенияТеперь я хочу перехватить любые соединения, которые не могут быть достигнуты, и выдать сообщение об ошибке, чтобы указать, что соответствующее соединение не может быть достигнуто.

Это код, который у меня есть до сих пор, однако я не уверен, что он фиксирует какие-либо ошибки:

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

Может кто-нибудь, пожалуйста, помогите мне или дайте мне знать, если этот код будет работать?