Copiar hoja y al hacerlo mi #consecutivo avance

Hola, tengo esta macro y me funciona en la hoja "NOTA" y al copiar una más (lo referente al # consecutivo, se que es por el nombre de la hoja, pero como podría funcionarme el # consecutivo, ¿cada qué agregue una copia? Gracias!
Sub NUEVAA()
'
' NUEVAA Macro
'
    Sheets("NOTA").Select
    Sheets("NOTA").Copy After:=Sheets(4)
    ActiveWorkbook.Sabe
    Range("B15:C32").Select
    Selection.ClearContents
    Range("E15:E32").Select
    Selection.ClearContents
    Range("B15").Select
    [K3] = [K3] + 1
End Sub

1 Respuesta

Respuesta
1
Prueba con esta rutina
Te agrega nuevas hojas con una numeración
Sub NUEVA()
'
' NUEVAA Macro
'
    Sheets.Add After:=Worksheets(Worksheets.Count)
Sheets(Sheets.Count).Name = "NOTA(" & Worksheets.Count & ")"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas