Adding a a new sheet with todays date... I have the code BUT

[zb134]

Sub CheckAndAddSheetNameAsCurrentDate()
Dim SheetName As String
SheetName = Format(Date, "dd-mm-yyyy") 'Change the format as per your requirement
 
On Error GoTo AddNew
 Sheets(SheetName).Activate
 
 Exit Sub
AddNew:
 Sheets.Add , Worksheets(Worksheets.Count)
 ActiveSheet.Name = SheetName
End Sub

This is what I use. Not my own code.
It works but ONCE a day. How do I change it so that if an additional new sheet is added a '-1' is appended to the end of the worksheet name.

Thanks!

 

[BiocideJ]

This code will work as you requested and technically 'infinitely' throughout the day, although eventually you will run out of memory.
First sheet is named as it already has been. Subsequent sheets will be named, "-1", "-2", "-3", ... , "-n"

Sub CheckAndAddSheetNameAsCurrentDate()
Dim SheetName As String
Dim i As Long
    SheetName = Format(Date, "dd-mm-yyyy") 'Change the format as per your requirement
    
    
    On Error GoTo AddNew
    For i = 1 To Worksheets.Count  'there cannot be more instances of a single date than there are sheets
        Sheets(SheetName).Activate
        SheetName = Format(Date, "dd-mm-yyyy") & "-" & i
    Next i
    
    Exit Sub
AddNew:
    Sheets.Add , Worksheets(Worksheets.Count)
    ActiveSheet.Name = SheetName
End Sub

 

[zb134]

Thanks for the prompt help!