Try something like

ThisWorkbook.SaveAs filename:="H:\Temp\" & ThisWorkbook.Name

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Shelly9633" wrote in
message
...
How do I write a macro to SaveAs? I want it to save the file
as the same
filename it already has, but to put it in a different folder.
Any help?