SaveAs Filename Help

[Ron de Bruin]

I'm trying to create a sub rountine that will save the active woorbook with

the current date and time.

Sub test()
ActiveWorkbook.SaveAs Format(Now, "dd-mm-yy h-mm-ss") & ".xls"
End Sub

 

[Ed]

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

 

[Ed]

Thanks

Sub test()
ActiveWorkbook.SaveAs Format(Now, "dd-mm-yy h-mm-ss") & ".xls"
End Sub