Hello Tigoda,

Try...
ActiveWorkbook.SaveAs Filename:="C:\test\" & Format(Now() - 1, "yymmdd")
& ".xls"


Les Stout

*** Sent via Developersdex http://www.developersdex.com ***