ブックがオープンしているかどうか調べてオープンする

' パターン１
j = 0
For i = 1 To Workbooks.Count
If Windows(i).Caption = "help.xls" Then
MsgBox "help.xlsは既にオープンしています。"
Workbooks("help.xls").Activate
j = 1
Exit For
End
End If
Next

If j = 0 Then Workbooks.Open FileName:="m:\help.xls"
'　-----------------------------------------------------------
'　パターン２
Dim i As Long
Dim ws
i = 0

For Each ws In Workbooks
If ws.Name = "全国町村コード一覧.xls" Then i=1
next
if i=0 then Workbooks.Open FileName:="全国町村コード一覧.xls"

ck:

If i = 0 Then
For Each ws In Workbooks
If ws.Name = "全国町村コード一覧.xls" Then i = 1
Next
End If

If i = 0 Then GoTo ck

' 完全にオープンするまでは、次の処理に移らない.
（ネットワークドライブに有るファイルをオープンするのに,時間がかかる。
その前に、そのファイルを使った処理が有る場合に、エラーとなるのを防ぐ.）