Have a try with this macro to save current workbook and an incremented backup with date for name. Make alterations to myExt if running 2007 or 2010.........xlsx or xlsm and also change Len(currfile) -4 to -5.
Code:
Sub namebooks_increment()
' currfile - 2012-1-3.xls
' currfile - 2012-1-3(1).xls
' currfile - 2012-1-3(2).xls
Dim myPath As String, myFile As String, myExt As String
Dim mySerial, currfile As String
currfile = ActiveWorkbook.Name
mySerial = ""
myPath = "C:\Gordstuff\"
myFile = Left(currfile, Len(currfile) - 4) _
& " - " & Format(Date, "YYYY-MM-DD")
myExt = ".xls"
' create output using sequence 1 to n if file already exists
If Len(Dir(myPath & myFile & mySerial & myExt)) > 0 Then
Do While Len(Dir(myPath & myFile & mySerial & myExt)) > 0
mySerial = "(" & Val(Mid(mySerial, 2)) + 1 & ")"
Loop
End If
'save a backup
ActiveWorkbook.SaveCopyAs Filename:=myPath & myFile & _
mySerial & myExt
'save current workbook
ActiveWorkbook.Save
End Sub
Just a note............if you wanted all this done on open then call it from Workbook_Open or just change it from a macro to a workbook_open event.
Bookmarks