開いたシートの名前を知りたいときありませんか?
私はめちゃくちゃあります。
目次
簡単な説明
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
こんな感じで試してみてください。
おわり
地味にこういうところで差が出ますよね。
簡単ことほど大事です。
コメント