Trabalhando com intervalos 3D

Se você estiver trabalhando com o mesmo intervalo em mais de uma planilha, use a função Array para especificar duas ou mais planilhas para selecionar. O exemplo seguinte formata a borda de um intervalo 3D de células.

Sub FormatSheets()
    Sheets(Array("Sheet2", "Sheet3", "Sheet5")).Select
    Range("A1:H1").Select
    Selection.Borders(xlBottom).LineStyle = xlDouble
End Sub

O exemplo seguinte aplica o método FillAcrossSheets para transferir os formatos em quaisquer dados do intervalo em Sheet2 para os intervalos correspondentes em todas as planilhas da pasta de trabalho ativa.

Sub FillAll()
    Worksheets("Sheet2").Range("A1:H1") _
        .Borders(xlBottom).LineStyle = xlDouble
    Worksheets.FillAcrossSheets (Worksheets("Sheet2") _
        .Range("A1:H1"))
End Sub