Agregar hojas en un libro

[jotaeme]

Estimada(o)

Junto con saluda y quizás sea básico para algunos, no logro agregar una hoja al final de la última que exista, estoy escribiendo

....

actual ---> variable string que contiene el texto con el cual se nombrará la nueva hoja

Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = actual

 

....

error 1004---me indica 

 

 

gracias de antemano

 

[Antoni]

Tu macro funciona cuando no existe la hoja a crear, en caso contrario da el error que describes.

Sub AñadirHoja()
actual = "Hola"
Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = actual
End Sub

O lo que es lo mismo, funciona la primera vez y dará error a partir de la segunda.

[jotaeme]

Gracias Antoni, acabo de descubrir mi error y era que la variable actual que tiene el nombre de la hoja u hojas que tengo que crear, es muy largo asi es que acorté a 18 y funciona impecable. Gracias por tu disposición

 

Saludos

 

Juan Manuel