Check network connection with Excel VBA

Question

I have a macro that saves on the network three spreadsheets of a PDF file. Loop and verify which spreadsheets will be saved in PDF, and save correctly. Macro hangs or gives error when network is bad or crashed, needing to use ESC key.

How to check before if the network is active and operational?

If the network is mapped as units, logically not finding is because the network is inactive or the path does not exist.

Use On Error Resume Next one line before saving in PDF, and right after If Err.Number > 0

Dim CaminhoArq As String
Dim NomeArq As String
CaminhoArq = ActiveSheet.Range("F2").Value
NomeArq = ActiveSheet.Range("F4").Value
If Right(CaminhoArq, 1) <> "\" Then
    CaminhoArq = CaminhoArq & "\"
    On Error Resume Next
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=CaminhoArq & NomeArq & ".pdf", _
                                    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, OpenAfterPublish:=False
    If Err.Number > 0 Then
        MsgBox "Caminho da pasta não existe!", vbExclamation, "AAAAA"
        Exit Sub
    End If
End If

If the path does not exist the error message is immediate.

But existing the path and the network being inactive or weak, it was to give immediate error and fall in IF Err.Number, but Excel hangs and does not respond, only typing ESC if it can stop the macro.

A code I found on the Internet, I’d like to know if it works for both the network and the Internet.

And continues the code only if the network is good: being bad or with some problem or inactive, for the code.

Private Declare PtrSafe Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long

Public Function IsInternetConnected() As Boolean
    IsInternetConnected = InternetGetConnectedStateEx(0, "", 254, 0)
End Function

Sub TestandoConexão()
    If IsInternetConnected = True Then
        MsgBox "Continua o código"
    Else
        MsgBox "Código interrompido"
    End If
End Sub