Sub helpfile()

Dim Thehelpfile As Boolean
Thehelpfile = False
On Error Resume Next
Thehelpfile = (Len(Dir("P:\Consignit
Templates\Consignit\Word\helpfile\How to use the word templates.doc"))
0)
On Error goto 0
If Thehelpfile = True Then
Application.Documents.Open Filename:="P:\Consignit
Templates\Consignit\Word\helpfile\How to use the word templates.doc"
Else
MsgBox "This functionality only works on the CAB office
Computers, You can download this help file from the intranet under
Tools/Templates"
Exit Sub
End If
End Sub

--
Regards,
Tom Ogilvy



wrote in message
ups.com...
Hi,

wrote some code for this:

Sub helpfile()

Dim Thehelpfile As Boolean

Thehelpfile = (Len(Dir("P:\Consignit
Templates\Consignit\Word\helpfile\How to use the word templates.doc"))
0)
If Thehelpfile = True Then
Application.Documents.Open Filename:="P:\Consignit
Templates\Consignit\Word\helpfile\How to use the word templates.doc"
Else
MsgBox "This functionality only works on the CAB office
Computers, You can download this help file from the intranet under
Tools/Templates"
Exit Sub
End If
End Sub

The problem is that if I pull the networkcable I get an error message
instead of the msgbox message I've written.

How to amend this so that if the networkdrive containing this file is
not available my message should appear?

Please help.

Thx!

/Jan