Getting the "Code Execution has been interrupted" message ...
I'm attempting to allow for various drive letter mapping on user PCs to a
folders on a shared drive on the LAN in order to save a copy of an Excel file
after a user edits it.

Sub SVSURVEY()
If Dir("E:\AName\") < "" Then
ActiveWorkbook.SaveAs Filename:= _
"E:\AName\SURVEY" & Range("H4").Value & ".xls"
ElseIf Dir("F:\AName\") < "" Then
ActiveWorkbook.SaveAs Filename:= _
"F:\AName\SURVEY" & Range("H4").Value & ".xls"

etc,
etc,

End If
End Sub

The procedure works fine, the file is saved with a different name but, would
like the code execution message not to appear.

Would appreciate a response.
--
AusTexRich