Duda crear nuevas hojas de una lista con formato prediseñado

[josuereal]

Buen día,

Tengo un problema con una macro y espero me puedan ayudar, se trata de una macro que crea hojas dependiendo una lista en una hoja "Base de Datos" (numero de registros) de allí se crean nuevas hojas con una plantilla prediseñada, hasta ahora todo va bien, el problema es que me da un error al crear las hojas si no hay un nombre en la cuenta de las celdas (numero de registros), quiero saber como quitar ese error o alguna forma de arreglarlo.

La macro es la siguiente:

Sub hojas()

Dim HojaOrigen As Worksheet, HojaNueva As Worksheet

Set HojaOrigen = Sheets("DATOS")

'para recorrer los 11 registros del listado (aqui esta el error si no tengo los 11 registros en la lista)

For i = 1 To 11

'desactivamos la actualización/refresco de pantalla

Application.ScreenUpdating = False

'duplicamos la Hoja 'modelo'

Sheets("Plantilla").Copy after:=Worksheets(Worksheets.Count)

Set HojaNueva = Sheets(Worksheets.Count)

nombrehoja = Worksheets("DATOS").Cells(5 + i, 1).Value

'damos nombre a la hoja con el valor de la celda A6+i

HojaNueva.Name = nombrehoja (aqui me depura el error ya que me dice que no encuentra mas nombres)

'activamos la actualización/refresco de pantalla

Application.ScreenUpdating = True

'trasladamos el valor de la celda ID

HojaOrigen.Cells(5 + i, 1).Copy

HojaNueva.Cells(3, 1).PasteSpecial Paste:=xlValues

'trasladamos el valor de la celda Num folio

HojaOrigen.Cells(5 + i, 2).Copy

HojaNueva.Cells(3, 2).PasteSpecial Paste:=xlValues

'trasladamos el valor de la celda fecha

HojaOrigen.Cells(5, 3).Copy

HojaNueva.Cells(3, 3).PasteSpecial Paste:=xlValues

'trasladamos el valor de la celda ejemplo

HojaOrigen.Cells(5, 4).Copy

HojaNueva.Cells(3, 5).PasteSpecial Paste:=xlValues

'trasladamos el valor de la celda IDU (Di)

HojaOrigen.Cells(5 + i, 5).Copy

HojaNueva.Cells(3, 6).PasteSpecial Paste:=xlValues

'trasladamos el valor de la celda ODU (Ei)

HojaOrigen.Cells(5 + i, 6).Copy

HojaNueva.Cells(3, 7).PasteSpecial Paste:=xlValues

'limpiamos el portapapeles

Application.CutCopyMode = False

Next i

End Sub

Espero me puedan ayudar, no he subido la hoja por que no me la permite.

saludos,

[Armando Montes]

Hola, bienvenido al foro.

Una opcion: Cómo utilizar "On Error" para manejar errores en una Macro