Hola un cordial saludo a todos.

 Tengo una hoja con un formato especifico que quiero duplicar 365 veces y renombranlas desde el 1 al 365 por dias del año desde enero hasta diciembre

Les agradecería me ayuden ya que hacerlo a mano es muy laborioso dado que lo tengo que hacer de una por una

Sub GenerarHojas()
Application.ScreenUpdating = False
With Sheets("Hoja1")                                      '<--- Hoja a copiar
   For fecha = CDate("01/01/2024") To CDate("31/12/2024") '<--- Periodo a generar
      .Copy After:=Sheets(Sheets.Count)
      ActiveSheet.Name = Format(fecha, "dd-mm-yyyy")
   Next
   .Activate
End With
End Sub

Y por si las quieres eliminar:

Sub EliminarHojas(): On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For fecha = CDate("01/01/2024") To CDate("31/12/2024") '<-- Periodo a eliminar
   Sheets(Format(fecha, "dd-mm-yyyy")).Delete
Next
End Sub

 

Editado el el 12 de abril1 año por Antoni

MUCHAS GRACIAS EXCELENTE APORTE MI AMIGO 👍