Crear un número de hojas según la cantidad que hay en una celda

Como dice el título, una macro que me cree el número de hojas que hay en una celda.

Muchas gracias

1 Respuesta

Respuesta
2

Te anexo la macro, cambia D5 por la celda que tiene el número de hojas a crear

Sub CrearHojas()
'Por.Dante Amor
    n = [D5]        'Cambiar por la celda
    '
    If IsNumeric(n) And n > 0 Then
        For i = 1 To n
            Sheets.Add after:=Sheets(Sheets.Count)
        Next
    End If
End Sub

Saludos.Dante Amor

Recuerda valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas