Hi Like some help where oh where to trap this error in the below code.
If USB stick is not in laptop it just comes up with debug window

Thanks Stephen

Sub SAVETOUSBSTICK()
' SAVETOUSBSTICK Macro
' Macro recorded 19/03/2007 by *
Application.DisplayAlerts = False
ChDir "d:\"
ActiveWorkbook.SaveAs Filename:="d:\April.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=True
Application.DisplayAlerts = True
End Sub