シート名で指定
Sheets(Array("Sheet1", "Sheet3")).Select
インデックスで指定
Sheets(Array(1, 3)).Select
但し、複数指定した場合は"Range"プロパティが使えないので、串刺しで式や値を設定するには、シートの1つに設定して、"FillAcrossSheets"メソッドで他のシートにコピーする。
× Sheets(Array(1, 2, 3)).Range("C3").Formula = "=SUM(C1:C2)"
○ Sheets(1).Range("C3").Formula = "=SUM(C1:C2)"
Sheets(Array(1, 2, 3)).FillAcrossSheets Sheets(1).Range("C3")