Incorporating a version number (incremental) in filename

[satyen]

Can anyone help with incorporating a version number in the filename everytime the macro is run- the Master sheet is saved.

Here is the code im currently using:



Public Sub Save()
Dim fname As string
Sheets("Master").copy
Format(Date, "dd-mm-yy") + "_" + Format(Time, "hh.mm")+ "xls"
ActiveWorkbook.saveas Fname:="C:\Saved\" &FName
MsgBox "Your file has been saved"
ActiveWorkbook.Close
End Sub


Many thanks

[Bob Phillips]

Just use date and time, it will be unique



Public Sub Save()
Dim fname As String
'Sheets("Master").Copy
fname = Format(Now, "dd-mm-yy_hh.mm.ss") & ".xls"
ActiveWorkbook.SaveAs Filename:="C:\Saved\" & fname
MsgBox "Your file has been saved as C:\Saved\" & fname
ActiveWorkbook.Close
End Sub

[satyen]

A version number is needed , if it can be done. If not I will stick with time. Thanks for the extra bits and editing on the current code.

[Bob Phillips]

Okay add this code to ThisWorkbook code module



Public Sub Save()
Dim fname As String
Dim myVersion As Long
myVersion = 1 ' in case it doesn't already exist
On Error Resume Next
myVersion = Evaluate(ThisWorkbook.Names("_Version").RefersTo) + 1
ThisWorkbook.Names.Add Name:="_Version", RefersTo:="=" & myVersion
ThisWorkbook.Save
'Sheets("Master").Copy
fname = Format(Now, "dd-mm-yy_hh.mm.ss") & " v" & myVersion & ".xls"
ActiveWorkbook.SaveAs Filename:="C:\Saved\" & fname
MsgBox "Your file has been saved as C:\Saved\" & fname
ActiveWorkbook.Close
End Sub

[satyen]

works great thanks vmuch!