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