ブックが開かれているか確認

Sub ブックが開いているか確認()
    Dim wb As Workbook
    Dim flag As Boolean
    For Each wb In Workbooks
        If wb.Name = "Book1.xlsx" Then
            flag = True
        End If
    Next wb
    If flag Then
        MsgBox "Book1 は開いている"
    Else
        MsgBox "Book1 は開いてない"
    End If
End Sub