SaveAs - modify code?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Steve - 26 Mar 2008 16:10 GMT

Hi everyone. What I'm trying to accomplish is to have the user click
a button and have the SaveAs box come up with a default folder
location. The code below does that fine. But, the file is always
saved as the default name (Book1), even if I change it to something
else. Can you please modify the code so I can choose he the file name
to be saved as? Thanks!!

sStr = "L:\Sales\East\Terms\2008\"
ChDrive sStr
ChDir sStr
Application.GetSaveAsFilename
ActiveWorkbook.SaveAs

Reply to this Message

Joel - 26 Mar 2008 17:34 GMT

sStr = "L:\Sales\East\Terms\2008\"
ChDrive sStr
ChDir sStr
FName = Application.GetSaveAsFilename
if FName = False then
ActiveWorkbook.SaveAs
else
ActiveWorkbook.SaveAs filename:=FName
end if

> Hi everyone. What I'm trying to accomplish is to have the user click
> a button and have the SaveAs box come up with a default folder
[quoted text clipped - 8 lines]
> Application.GetSaveAsFilename
> ActiveWorkbook.SaveAs

Reply to this Message