Tom,
thanks for this, how do I put into this part of the code:

ActiveWorkbook.SaveAs Filename:="D:\Last Months.xls", FileFormat:= _
xlExcel9795, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:=True

"Tom Ogilvy" wrote in message
...
With ActiveWorkbook
.SavecopyAs Left(.Fullname,len(.FullName)-4) & "_backup_" & _
format(date,"mmm") & ".xls"
End With

--
Regards,
Tom Ogilvy


"PR" wrote in message
...
I am trying to create a backup copy of a current spreadsheet, and I want
to
call it a backup copy and place the month in the title of the file.

Can anyone help me achieve this.

PR