【Excel VBA】シートの参照

Public Sub referenceSheet()

    ' 先頭（一番左）のシートを選択する
    ThisWorkbook.Worksheets(1).Select

    ' 末尾（一番右）のシートを選択する
    ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count).Select

    ' Sheet1を選択する
    ThisWorkbook.Worksheets("Sheet1").Select

End Sub

Public Sub referenceSheet()

    ' 2番目のシートを起点にし、右隣のシートを選択する
    ThisWorkbook.Worksheets(2).Next.Select

    ' Sheet2を起点にし、左隣のシートを選択する
    ThisWorkbook.Worksheets("Sheet2").Next.Select

End Sub

Public Sub referenceSheet()

    ' アクティブシート名をメッセージボックスに出力する
    MsgBox ThisWorkbook.ActiveSheet.Name

End Sub

Public Sub referenceSheet()

    ThisWorkbook.Worksheets(1).Previous.Name

End Sub