Alow to name sheet with custom date if already exist..

[werko]

Hi,

Have this code to generate a sheet with todays date 22-Jul, but i would like to have a second sheet with custom date "22-Jul-(2)" if already exist...

Sub TodaySheet2()
Application.ScreenUpdating = False
Worksheets("Main").Visible = True
Dim SheetName As String
SheetName = Format(Date, "dd-mmm")
On Error GoTo AddNew
Sheets(SheetName).Activate
MsgBox "Already Exist!!!", vbInformation
Worksheets("Main").Visible = xlVeryHidden
Exit Sub
AddNew:
Worksheets("Main").Select
Worksheets("Main").copy After:=Worksheets("Main")
Worksheets("Main").Visible = xlVeryHidden
ActiveSheet.Name = SheetName
ActiveSheet.Activate
Application.ScreenUpdating = True
End Sub

Thanks!!