Generación automatizada de hojas

[Mariett]

Hola, tengo un problema con mi macro, tengo una lista de datos y por cada dato genero la copia de una hoja modelo, el problema es cuando necesito agregar mas datos y vuelvo a ejecutar la macro, me genera otra hoja pero no con el nombre del ultimo dato agregado, si me pueden ayudar lo agradezco.

Saludos

Sub Generarhoja()

Dim HojaOrigen As Worksheet, HojaNueva As Worksheet

Set HojaOrigen = Sheets("UF_Dolar")

Dim ultfla As Long

ultfila = Range("A" & Rows.Count).End(xlUp).Row

u = ultfila - 1

'para recorrer los registros del listado

For i = 1 To u

'desactivamos la actualización/refresco de pantalla

Application.ScreenUpdating = False

'duplicamos la Hoja 'modelo'

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

Set HojaNueva = Sheets(Worksheets.Count)

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

On Error GoTo ErrorHandler

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

HojaNueva.Name = nombrehoja

Next i

ErrorHandler:

u = nombrehoja

Exit Sub

'activamos la actualización/refresco de pantalla

Application.ScreenUpdating = True

'limpiamos el portapapeles

Application.CutCopyMode = False

End Sub

[tierra_pampa]

Hola [uSER=221925]@mariett[/uSER]!!!

Antes de seguir con la consulta es mi deber informarte de estas normas: Normas AyudaExcel y muy especialmente el punto 5:

"5. Adjunta siempre un archivo con la estructura de trabajo y los resultados que esperas

obtener y de cómo obtienes los datos. No es necesario el archivo completo, una simple parte

de los datos y la estructura del mismo es suficiente. No adjuntes imágenes nunca, las

imágenes no nos sirven para buscar la solución adecuada"

Cómo el tema "creo" que se entendía, he realizado un archivo de prueba por tí.

Puedes probar y comentar? Si la solución planteada es lo que buscas, favor de dar el tema por solucionado.

Que tengas una buena jornada!

vba_agregar_hojas.rar

[Mariett]

Buenas noches, gracias por la respuesta