Sheets.FillAcrossSheets (Excel)

Copia un rango en el mismo lugar en toda una serie de hojas de cálculo.

FillAcrossSheets (Range, Type)

x = Array("Sheet1", "Sheet5", "Sheet7") 
Sheets(x).FillAcrossSheets Worksheets("Sheet1").Range("A1:C5")

Arguments

Un argumento con nombre

Range (Range) - Rango con el que se rellenan todas las hojas de la colección. El rango debe ser de una de las hojas de cálculo de la colección.

Optional arguments

Los siguientes argumentos son opcionales

Type (XlFillWith) - Especifica cómo se debe copiar el rango.

Posibles valores de retorno son xlFillWithAll - Copiar el contenido y los formatos, xlFillWithContents - Copiar sólo el contenido, xlFillWithFormats - Copiar sólo los formatos.