【Excel VBA】シートの選択（Selectメソッド）

Public Sub selectSheet()

    ' 先頭のシートを選択
    ThisWorkbook.Worksheets(1).Select

    ' シートを追加で選択
    ThisWorkbook.Worksheets(2).Select Replace:=False

End Sub

Public Sub selectSheetMultiple()

    ' インデックス番号 1と2のシートを選択
    ThisWorkbook.Worksheets(Array(1, 2)).Select

    ' Sheet1とSheet2をを選択
    ThisWorkbook.Worksheets(Array("Sheet1", "Sheet2")).Select

    ' Sheet1とSheet2をを選択
    ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select

End Sub

Public Sub selectAllSheet()

    ' ブック内の全てのシートを選択
    ThisWorkbook.Worksheets.Select

End Sub

Public Sub loopSelectSheet()
    Dim wsObj As Worksheet  ' Worksheetオブジェクト

    ' インデックス番号 1と2のシートを選択
    ThisWorkbook.Worksheets(Array(1, 2)).Select

    ' 選択されたシート単位でループする
    For Each wsObj In ActiveWindow.SelectedSheets

        ' シートの見出しを黄色にする
        wsObj.Tab.ColorIndex = 6
    Next wsObj

End Sub

Public Sub checkSheetGrouping()

    ' 複数シート選択（グループ化）判定
    If ActiveWindow.SelectedSheets.Count > 1 Then

        MsgBox "グループ化されています。", vbInformation
    Else

        MsgBox "グループ化されていません。", vbInformation
    End If

End Sub