Insertar 10 hojas rápidamente

Para insertar una hoja mediante código utilizo el siguiente:
Sheets.Add
Pero no se como agregar 10 hojas simultáneamente, es decir sin tener que escribir 10 veces el código anterior
Agradezco sus aportaciones
Saludos

1 Respuesta

Respuesta
1
Debes utilizar un bucle de esta manera:
Sub agregohojas()
Dim i As Byte
While i < 10
Sheets.Add
i = i + 1
Wend
End Sub
Saludos y no olvides finalizar
Elsa
PD) El tema bucles encontrarás ampliamente explicado en mi manual '300 Macros' en español:

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas