Seguindo emminha consulta do Connections, Agora quero capturar todas as conexões que não podem ser alcançadas e lançar uma mensagem de erro informando que a conexão relevante não pode ser alcançada.

Este é o código que tenho até agora, no entanto, não tenho certeza se está capturando algum erro:

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

Alguém poderia me ajudar ou me informar se esse código funcionaria?