This worked for me.


Sub test()

On Error GoTo MY
MyNAme = Dir("A:\")
Exit Sub

MY:
MsgBox "Please insert disk in A:"

End Sub



Mangesh


--
mangesh_yadav
------------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...o&userid=10470
View this thread: http://www.excelforum.com/showthread...hreadid=380033