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

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

Thanks Bob

This works great, but I would like the backup copy to be overwritten everday
by the next backup. What would I have to change on this formula to get the
backup file to be named "Filename_bak.xls"

Thanks again
j


"Bob Phillips" wrote:

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

I figured it out,

Thanks again for the help Bob

j




"Bob Phillips" wrote:

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