Siguiendo desdemi consulta de Conexiones, Ahora quiero capturar cualquier conexión que no se pueda alcanzar y lanzar un mensaje de error para indicar que no se puede alcanzar la conexión relevante.

Este es el código que tengo hasta ahora, sin embargo, no estoy seguro de si está capturando algún error:

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

¿Podría alguien ayudarme o hacerme saber si este código funcionaría?