How to timestamp a filename with macro

[jkpd2000]

Hi,

I want to create a macro which just saves the current file with what ever the name is + the time stamp.

Example.
My file is "FILE.xls"

in the FILE.xls there should be a macro
which, when i run should Save As the file FILE.xls to FILE_05_11_02.xls
(what ever the date i ran)

thanks

[Nimrod]

version 1

Sub ReNameSvFile()
Path = "c:"
WkBkNm = (Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4))
DateStr = Format(Date, "dd_mmm_yy")

    ActiveWorkbook.SaveAs Filename:= _
        Path & WkBkNm & DateStr & ".xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub

version 2

Sub ReNameSvFile()
Path = "c:"
WkBkNm = (Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4))
DateStr = Format(Date, "dd_mmm_yy")

    ActiveWorkbook.SaveAs Filename:= _
        Path & WkBkNm & DateStr & ".xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub

[ This Message was edited by: Nimrod on 2002-05-10 21:36 ]

[ This Message was edited by: Nimrod on 2002-05-10 22:10 ]

[ This Message was edited by: Nimrod on 2002-05-10 22:11 ]

[jkpd2000]

Can't it be done by a macro?

if not, Where to put this code. can you tell me step by step