複数のシートを一気に選択するには、以下の様にします。 Sub Sample52() Sheets(Array("Sheet1", "Sheet2")).Select End Sub 複数のシートを一づつ選択するには、以下の様にします。 Sub Sample52a() Sheets("Sheet1").Select Sheets("Sheet2").Select False End Sub