With Activeworkbook
.SaveCopyAs Range("A1").Value & _
Left(.Name,Len(.name)-4) & Format(Now,"yyymmddhhmmss") & ".xls"
End With

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"justaguyfromky" wrote in message
...
I have a range already set up with my save path name, I want to create a
macro that will save a backup copy of the workbook that I am working in.
Any
ideas how?

Thanks for any help

j