SaveAs - modify code?
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 |
SaveAs - modify code?
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 |
All times are GMT +1. The time now is 07:33 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com