Visual Basic For Applications Tips

ワークシート名の取得

アクティブなシート名を取得

Sub SheetName1()
　　MsgBox ActiveSheet.Name 'アクティブなシートのシート名の取得
End Sub


シートのｎ番目を指定して名称取得
※ブックを指定したい場合は、Workbooks("ブック名").Sheets〜
　アクティブなブックを指定したい場合はActiveWorkBook.Sheets〜
　プロシジャが格納されているブックを指定したい場合はThisWorkBook.Sheets〜

Sub SheetName2()
　　MsgBox Sheets(1).Name '一番目のシート名の取得
End Sub