Hope this helps.
'Sub SaveMe()
myFilename = InputBox("Enter filename") & ".xls"
myDir = "C:\documents and settings\mike\my documents"
ActiveWorkbook.SaveAs Filename:= _
myDir & "\" & myFilename, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

"Harald Staff" wrote:

Hi Mike

Post the macro please.

Best wishes Harald

"Mike" skrev i melding
...
I have a "Save As" macro. When activated a box appears asking for a file
name.
If the the file name already exists a prompt asks if the existing file
should be over -
written. If I answer YES there is no problem. If I answer NO a VBS prompt
asks if I
want to END or DEBUG. Ideally if the answer is NO I would want to return
to
the sheet the macro was in. Mike.