Macro (SAVE AS)

[Guest]

Im trying to record a macro which at the end of running prompts the user to
do a "save as", when I'm recording it and select the save as option it brings
up the box to input you file name & save location. Its at this point I want
the macro to stop and the user can then put a new file name in (would be even
better if it could pick the name from a cell in the worksheet ?), but as the
"save as" box is open I cant get back to the orginal excel sheet to end the
macro.

Can anybody help with this ?

Thanks

 

[Don Guillett]

Sub saveitas()
ActiveWorkbook.SaveAs Filename:=Range("a1")
End Sub