Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
Hola, tengo una consulta relacionada con la numeración de Botones.
Al crear un Botón (al que luego asigno un Macro), este asume el nombre "Botón 1", el siguiente "Botón 2", etc .....
Por la estructura de de mi hoja, una macro borra estos botones y luego los vuelve a crear.
El problema es que los nuevos botones tienen el nombre "Botón 3", "Botón 4", etc.
Como esta operación la repito muchas veces, luego de un par de semanas, el nombre de los botones
llega a "Botón 65536", etc., luego de esto, me arroja error, me imagino por que llegó a número máximo de botones.
Existe alguna forma de "Resetear" o Limpiar esta numeración en algún momento, para que el nuevo Botón regrese a "Botón 1" o algo parecido.
Para crear los botones uso:
ActiveSheet.Buttons.Add(921, 8, 55, 14).Select
Selection.Caption = "Reload"
Sheets(1).Shapes(3).Name = "BT2"
Selection.OnAction = "Reload"
Gracias por la Ayuda