Dim wb as Workbook
...

wbが開いているか閉じられているか確認する方法ありますか？