¿Macros para duplicar nombre?

Envío cordiales saludos.
Mi duda o cuestión es que tengo la siguiente macro:
Sub factura()
'
' factura Macro
' Creacion de Factura
'
' Acceso directo: CTRL+f
'
    Sheets(1).Select
    Sheets("Plantilla").Range("D7").Value = Sheets("Plantilla").Range("D7").Value + 1
    Sheets("Plantilla").Copy After:=Sheets(1)
    ActiveSheet.Name = Format(Date, "dd-mm-yyyy")
    ActiveWorkbook.Save
End Sub
La cual me permite copiar y hacer un consecutivo de facturas poniendo la fecha en la pestaña del nombre de la hoja, mi cuestión es que si intento meter más de una factura me manda el error de que el nombre de la hoja ya existe y me crea una hoja con el nombre de plantilla (2) quisiera que me iera el mismo formato de efecha con el indice (2).
Es decir:
Estoy en la hoja Platilla - Ejecuto Macros - hace copia de hoja plantilla y nombra como 17-03-2011.
Si ejecuto nuevamente macros - el nombre de la hoja ya existe - me arroja una nueva hoja con nombre "plantilla (2)" quisiera que me arrojara el nombre 17-03-2011 (2).