ExcelVBAでワークシートからブック名を取得する

ExcelVBA 
Sub シート名がわかっているときにブック名を取得する()
　Const FIND_SH = "顧客マスター"
　Dim bk As Workbook
　Dim sh As Worksheet
　For Each bk in Workbooks
　　For Each sh in bk.Worksheets
　　　If sh.Name = FIND_SH Then
　　　　　MsgBox sh.Parent.Name
　　　　　Exit Sub
　　　End If
　　Next sh
　Next bk
　MsgBox "「" & FIND_SH & "」シートは存在しません。"
End Sub

ネタ元