Save a the same workbook but add a variable number at the end

HI, I want to save down a template as the same named file. each time I save it I want to save it with an incremental variable number\

example
"myworkbook ver 1"
"myworkbook ver 2"

This is what I'm trying to leverage and build on but I am stuck...

this just keeps adding .xlsx to the same file, not different versions

Sub Save()

Dim Folder
Dim File
Dim Month



    Folder = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "\New Files\"))

     File = Left(Activeworkbook.Name, Len(Activeworkbook.Name))



   'Thisworkbook.Sheets("Info").Range("A1") = "Sept"
    Month = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    
    
    Activeworkbook.SaveAs FileName:= _
        "" & Folder & "" & File & "-" & Month & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    
    

End Sub

Please Help