SaveAs Filename Help

  • Thread starter Thread starter Ron de Bruin
  • Start date Start date
R

Ron de Bruin

I'm trying to create a sub rountine that will save the active woorbook with
the current date and time.
Click to expand...

Sub test()
ActiveWorkbook.SaveAs Format(Now, "dd-mm-yy h-mm-ss") & ".xls"
End Sub
 
I'm trying to create a sub rountine that will save the active woorbook with
the current date and time.
E2 has the NOW() function. I copied the code from another woorbook and tried
to modify it and now I'm
just lost.
What I want to do is save the routine in a woorbook called FTR.xls, but want
to execute the procedure on different
woorbooks that I open.


Sub Save_File ()
ActiveWorkbook.SaveAs Filename:=Sheets("Sheet5").Range("E2").Value &
".xls"

End Sub

T.I.A.
Ed
 
Back
Top