Excel - Crear nombres de celda automáticamente

Hola a todos,

Necesito crear una hoja de cálculo, en donde los nombres de cada Hoja sean fechas.

tiene que haber una hoja por cada día laboral del año (de lunes a viernes), de tal forma que la hoja1 se llamará 01-01-2011 si fuera lunes, la hoja 2 02-01-2011, ... la hoja 5 05-01-2011 y la hoja6 08-01-2011.
Cómo se podría hacer de una forma automática para no tener que ir creando nuevas hojas a mano hasta completar el año?

Muchas gracias por vuestra ayuda.
Un saludo,

NACHO

una pequeña macro puede ayudar...

Sub test()
Dim wb As Workbook, ws As Worksheet
Dim dt As Date, i&, n&
Set wb = ThisWorkbook
dt = Date '//Fecha inicial
n = 365 '//Cantidad de días/hojas
For i = 0 To n-1
Set ws = wb.Sheets.Add
ws.Name = VBA.Format(dt, "dd-mm-yyyy")
dt = DateAdd("d", 1, dt) '//Siguiente día
Next
End Sub


Saludos, desde Baires, JuanC

Muchísimas gracias JuanC.

Y si lo que quiero es que además de crear los nombres se copie toda la estructura de celdas que tengo en la hoja 1 cómo lo podría hacer?

En resumen, tengo que crear una plantilla (que luego protegeré su formato) para que la rellenen otras personas cada día de la semana. La plantilla es igual, lo único que cambia es el día del nombre de la hoja.

Gracias de nuevo!

Muy buenas,

mira a ver si te sirve esta macro:

Sub hojas()
Sheets("Hoja1").Select
Cells.Select
Selection.Copy
vdia = #1/1/2011#
While vdia <= #12/31/2011#
If Weekday(vdia, 2) < 6 Then
Sheets.Add After:=Sheets(Sheets.Count)
'Sheets(Sheets.Count).Select
ActiveSheet.Name = Format(vdia, "dd-mm-yyyy")
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
vdia = vdia + 1
Wend
End Sub

Un saludo. Juanjo.

Muchísimas gracias Juanjo!

Solucionado.

Saludos,

Juanjo, Juan o resto de gente... :-)


me acabo de dar cuenta que el pastespecial, con el xlPasteFormat sólo me pega el formato y no incluye el texto que uso para nombrar las columnas...

Si quisiera además de copiar el formato, que se copiara el texto cómo podría hacerlo?

Muy buenas,

simplemente cambia
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
por
ActiveSheet.Paste

Un saludo. Juanjo.

muchísimas gracias!