Test if Internet connection is available or not

Purpose: test if Internet connection is available or not

Use the following function to test whether an Internet connection is available on the end user’s computer:

Public Function IsInternetAvailable()
Dim XLSPadlock As Object
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
If XLSPadlock.PLEvalVar("InternetConnected") = "1" Then
 IsInternetAvailable = True
Else
 IsInternetAvailable = False
End If
Exit Function
Err:
IsInternetAvailable = False
End Function
 

 

You can then call the function. For instance, the following code sets the value of a cell:

Private Sub Workbook_Open()
If IsInternetAvailable Then
Sheet1.Range("S24") = "Internet Available"
Else
Sheet1.Range("S24") = "No Internet"
End If
End Sub