RE: Need a simple macro to SaveAs

Posted by Mike on November 12, 2001 11:23 AM

Need a simple macro to SaveAs whatever I place in A1, to be saved to a specific directory.

ie:
SaveAs Q99999 to S:\Purchasing\QUOTES\OPEN\

Q99999 will end up in the Open File on the S:Drive.

I know that I can use the following macro to SaveAs to the current folder but I need to get the file in the S:Drive:
Public Sub SaveAsA1()
ThisFile = Range("A1").Value
ActiveWorkbook.SaveAs Filename:=ThisFile

Posted by Barrie Davidson on November 12, 2001 11:26 AM

Try this instead:

ThisFile = "S:\Purchasing\QUOTES\OPEN\" & Range("A1").Value
ActiveWorkbook.SaveAs FileName:=ThisFile

Regards,
BarrieBarrie Davidson

Posted by Mike on November 12, 2001 12:04 PM

Thanks Barrie.