saving data with a macro

[feza]

hi, i have this formula already for recording a macro with the date but i was wondering if anyone could adjust it so that it can save more than one different workbooks on the same day

Sub SaveAsTodaysDate()
Dim sFileName As String, sPath As String
sPath = "C:\" 'change path here
sFileName = Format(Now(), "ddmmmyy")
'File =sPath & sFileName Might fit in nice to do this way so you have a varialble to call the file
ActiveWorkbook.SaveAs (sPath & sFileName)
End Sub

would be a great help

 

[Nimrod]

This Solution adds a version number to the name of the book. It does this by seeing if the file already exists.

Sub SaveAsTodaysDate()
Dim sFileName As String, sPath As String
sPath = "C:\" 'change path here
sFileName = Format(Now(), "ddmmmyy")

' Create A version Number if already exists
Num = 1
Do While Dir(sPath & sFileName & ".xls") <> ""
sFileName = Format(Now(), "ddmmmyy")
Num = Num + 1
VerNum = "_Ver" & Num
sFileName = sFileName & VerNum
Loop

'File =sPath & sFileName Might fit in nice to do this way so you have a varialble to call the file
ActiveWorkbook.SaveAs (sPath & sFileName)
End Sub