Save file with last month date on end

[Les]

Hi all, i am wanting to save a file "myFile.xls" as "myFile_Apr-08.xls".

It must always be the last month to present date.

Any help would be much appreciated.

 

[Mike H]

Les,

Try this

fname = "myfile_" & DateSerial(Year(Date), Month(Date) + 1, 0)

Mike

 

[Per Jessen]

Hi Les

This should get you started:

m = MonthName(Month(Now()) - 1, True)
SaveName = "MyFile_" & m & "-" & Right(Year(Now()), 2)

Regards,
Per

 

[Les]

Thanks Mike
--
Les

Les,

Try this

fname = "myfile_" & DateSerial(Year(Date), Month(Date) + 1, 0)

Mike