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