excelが開いているかどうかを調べて処理する vba

ユーザーフォーム動作で○○○.ｘｌｓはすでにひらいています警告文の対策

Sub BookOpen(WB_name As String)
Dim WB As Workbook
Dim FLG As Boolean

FLG = False
For Each WB In Workbooks
If WB.Name = WB_name Then
FLG = True
Exit For
End If
Next

If FLG = False Then
'WB_name で指定されたブックが開いていない場合は開く。
Workbooks.Open Filename:=ThisWorkbook.Path & "\請求\" & WB_name
else
WB_name.activate
End If
End Sub