The code below is what I am currently using. The problem Im having is that when there are no connections at all it throws up a error "Bad Name" and highlights the If Dir("H:\") is there something I can add that I quess would check for any connection first then check for the H: Thanks If Dir("H:\") = "" Then UserForm1.Label1.Caption = "Error: No Network Connection..try again later" Else UserForm1.Label1.Caption = "Network Connection Found ! Preparing to Send........" End If UserForm1.Show vbModeless Application.Wait Now + TimeSerial(0, 0, 5) Unload UserForm1

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

VBA: Network Connection Macro Problem

Thread starter bamaisgreat
Start date Oct 25, 2012
Tags

connection problem network

bamaisgreat

Well-known Member

Oct 25, 2012

The code below is what I am currently using. The problem Im having is that when there are no connections at all it throws up a error "Bad Name" and highlights the If Dir("H:\")
is there something I can add that I quess would check for any connection first then check for the H:
Thanks

Code:

[/COLOR]

If Dir("H:\") = "" Then
    UserForm1.Label1.Caption = "Error: No Network Connection..try again later"
Else
    UserForm1.Label1.Caption = "Network Connection Found ! Preparing to Send........"
End If
UserForm1.Show vbModeless
Application.Wait Now + TimeSerial(0, 0, 5)
Unload UserForm1[COLOR=#FF0000]