Script imprimir con contador

[PepitoVadeCurt]

Buenas, tengo unas plantillas para imprimir etiquetas. Quiero incluir la numeración de la etiqueta, ejemplo: etiqueta 5 de 367

He hecho un script que crea hojas nuevas con la numeración correspondiente pero apartir de la hoja 50 + o - aparece el error: 1004 en tiempo de ejecución:
Error en el método Copy de la clase Worksheet

Celda B2 = Número inicial
Celda C2 = Número final
Celda K2 = Número actual

Código vb:

Sub Botón1_AlHacerClic()
 
Dim comptador As Integer 'Comptador de fulls, posició anterior
Dim nomFull As String
 
comptador = 1
 
' Copia el full ppal per a que no es modifique
Sheets("Etiqueta").Select
Sheets("Etiqueta").Copy After:=Sheets(Sheets.Count)
nomFull = "base." & comptador
Sheets(Sheets.Count).Name = nomFull
 
' Crea les fulles augmentant el comptador
For Cont = Range("B2").Value To Range("C2").Value - 1
    nomFull = "base." & comptador
    Sheets(nomFull).Select
    Sheets(nomFull).Copy After:=Sheets(Sheets.Count)
    comptador = comptador + 1
    nomFull = "base." & comptador
    Sheets(Sheets.Count).Name = nomFull
    Sheets(nomFull).Select
    Range("K2").Value = Range("K2").Value + 1
    Next
 
' Imprimeix els fulls (salta el primer full)
ActiveWorkbook.PrintOut From:=2
 
 
'Elimina les fulles creades excepte la principal
Application.DisplayAlerts = False 'Suprimir advertències
For Cont = Range("B2").Value To Range("C2").Value
    nomFull = "base." & comptador
    Sheets(nomFull).Delete
    comptador = comptador - 1
    Next
Application.DisplayAlerts = True ' Habilitar advertències
 
End Sub
 

[PepitoVadeCurt]

He provado también el siguiente procedimiento:
Crear las hojas de 3 en 3, aumentando el contador en cada una, cada grupo de 3 imprimir, pausa de 1 segundo, eliminar las 3 hojas y ir repitiendo el proceso hasta llegar al final.
Veo que llega al límite de memória, hay alguna manera de liberar la memoria?