Macro para crear 12 hojas una por mes

Cómo sería la macro para que al presionar un botón me genere 12 hojas una por cada mes Ene, Feb, Mar y así hasta Dic.

1 respuesta

Respuesta
2

Te anexo la macro

Sub CrearHojas()
'Por.Dante Amor
    meses = Array("Ene", "Feb", "Mar", "Abr", "May", "Jun", _
                  "Jul", "Ago", "Sep", "Oct", "Nov", "Dic")
    For i = LBound(meses) To UBound(meses)
        Sheets.Add after:=Sheets(Sheets.Count)
        ActiveSheet.Name = meses(i)
    Next
End Sub

S a l u d o s . D a n t e   A m o r

Recuerda valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas