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


"Steve" wrote:

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