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