Sheets.FillAcrossSheets (Excel)

Copia um intervalo para a mesma área em todas as outras planilhas de uma coleção.

FillAcrossSheets (Range, Type)

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

Arguments

O seguinte argumento é necessário

Range (Range) - O intervalo a ser preenchido em todas as planilhas da coleção. O intervalo precisa ser de uma planilha dentro da coleção.

Optional arguments

The following argument is optional

Type (XlFillWith) - Especifica como copiar o intervalo.

Os valores de retorno possíveis são xlFillWithAll - Copia conteúdo e formatos, xlFillWithContents - Copia somente conteúdo, xlFillWithFormats - Copia somente formatos.