'ワークシートの総数を取得する ActiveWorkbook.Worksheets.Count 'ワークシートのインデックスを取得する Worksheets("シート名").Index 'ワークシートをアクティブにする Worksheets(index).Activate 'ワークシート名を取得する Worksheets(index).Name 'ワークシートを変数に Dim ws AS Excel.Worksheet Set ws = Worksheets("シート名")