【VBA】開いている全ブックから対象ブックをセット｜ファイル名の一部で判定

' -----------------------------------------------------------------------
' 引数          : str:含まれているか確認する文字列
' -----------------------------------------------------------------------
Public Function GetBookByName(ByVal str As String) As Workbook
    Dim n As String
    Dim va As String
    For Each v In Workbooks
        n = v.name
        If StrExistsInTxt(n, str) Then
            Set GetBookByName = v
            Exit Function
        End If
    Next v

    'ファイルがなければマクロ終了
    Dim text As String
    text = _
            "現在、開いているブックの中に" & vbCrLf & vbCrLf & _
            "「" & str & "」の名前の含まれるファイルが" & vbCrLf & _
            "見つかりません"
    Call MsgStopMacro(text)
End Function