EXCEL VBA 指定のブック名を開いているか確認する。

'
' 指定のブック名を開いているか確認する。
'
'バージョン 2022.8.15
Private Function nipbln指定のブック名を開いているか確認する(ByVal pstr検索ブック As String) As Boolean
    Dim obj As Workbook
    For Each obj In Workbooks
        If obj.Name = pstr検索ブック Then
            nipbln指定のブック名を開いているか確認する = True
            Exit Function
        End If
    Next
    nipbln指定のブック名を開いているか確認する = False
End Function