Save macro but adds a .1 to the saved file

[Theoutlaw700]

I already have a macro that has a save function I will list it below, but what I want to happen is I want it to count up every time I save. For example I hit my save macro and it makes a file in my intended loaction but the file name is example.1 then the next time I hit the macro it will save but the file will be saved as example.2 and so forth. Is this possible?

Thank you for your help in advance!

Sub test()
Dim path As String
Dim filename1 As String

path = "C:\CSV\"

Application.DisplayAlerts = False

ThisWorkbook.Sheets("Data").Copy


filename1 = "Schedulecsv"
Application.DisplayAlerts = True
ActiveWorkbook.SaveAs filename1, FileFormat:=62, CreateBackup:=False
ActiveWorkbook.Close

VBA.MsgBox "Saved'"


End Sub

 

[Kemidan2014]

So to be clear are you wanting it to say Schedulecsv.1 then next time Schedulecsv.2?

 

[Theoutlaw700]

So to be clear are you wanting it to say Schedulecsv.1 then next time Schedulecsv.2?

Yes Exactly!

 

[Kemidan2014]

Okay i think i have your Solution

Add this code to "Thisworkbook" as "AfterSave"

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

Range("A1") = Range("A1") + 1

End Sub

Change A1 to a Cell of your choosing some where in the sheet that wont harm what your doing. this will provide a counter to base your code from

Then try this code

Sub test()
Dim path As String
Dim filename1 As String
Dim Count As String

path = "C:\CSV\"

Application.DisplayAlerts = False

ThisWorkbook.Sheets("Data").Copy

Count = Range("A1")
filename1 = "Schedulecsv"
Application.DisplayAlerts = True
ActiveWorkbook.SaveAs filename:=Filename1 & "-" & Count & ".xls", FileFormat:=62, CreateBackup:=False
ActiveWorkbook.Close

VBA.MsgBox "Saved'"

Again Change "A1" to where ever you had decided the counter destination

you never wanna use "." unless you are designating a file extension so i switched it to Hyphen so your file should open