Macro para crear hoja con nombre consecutivo

Necesito crear una macro para que al darle a un botón me cree una hoja nueva, cuyo nombre sea el del día en curso, y si ya existiera, que la nombre con números consecutivos.
Tengo hecha una que lo que hace es que si la hoja ya está creada, se activa la primera celda vacía de la primera columna. Lo que quiero es sustituir esta parte para que cree hojas con nombres correlativos.
No se si me expliqué bien, pero pongo el código que ya tengo
Sub Hojanueva()
'
' Hojanueva Macro
'
'
    Dim Nombre As Date
    Nombre = Format(Now(), "dd-mm-yyyy")
    Sheets(Sheets.Count).Select
    If ActiveSheet.Name = Nombre Then
        Range("A65536").End(xlUp).Offset(1, 0).Select
     
    Else
        Sheets.Add after:=Sheets(Sheets.Count)
        ActiveSheet.Name = Format(Now(), "dd-mm-yyyy")
        Columns("A:A").Select
        Selection.NumberFormat = "@"
        Lote = 0
    End If
End Sub
Lo subrayado ees lo que quiero sustituir