【ExcelVBA入門】アクティブなシートやブックの名前を取得する方法！

開いたシートの名前を知りたいときありませんか？
私はめちゃくちゃあります。

簡単な説明

Dim SheetName As String
Dim BookName As String
SheetName = ActiveSheet.Name
BookName = ActiveWorkbook.Name

これだけです。
簡単でしょ。

Option Explicit
Sub test()
Dim SheetName As String
Dim BookName As String
SheetName = ActiveSheet.Name
BookName = ActiveWorkbook.Name
MsgBox SheetName & vbCrLf & BookName
End Sub

こんな感じで試してみてください。

おわり

地味にこういうところで差が出ますよね。
簡単ことほど大事です。