SheetやRangeオブジェクトからブック名を取得する方法
SheetやRangeオブジェクトから今開いているブック名って何だっけ?という時にParentを使ってWorkbookオブジェクトから取得します。
開いているブックが一つしかないのであれば、Thisworkbook.Nameで取得できます。
Dim sht As Worksheet 'シートオブジェクト
Dim rng As Range 'レンジオブジェクト
Set sht = Workbooks("Book1.xlsm").Sheets("Sheet1")
Set rng = Workbooks("Book1.xlsm").Sheets("Sheet1").Range("A1:B1")
MsgBox rng.Parent.Parent.Name
MsgBox sht.Parent.Name