スキルアップ・問題解決なら、モーグにおまかせ！

サンプルマクロは、Sample.xlsという名前のブックが開かれているかどうかを調べます。

Sub Sample()

Dim myChkBook As Workbook

    On Error GoTo ErrHdl
    Set myChkBook = Workbooks("Sample.xls")

    MsgBox "開かれています。"
    Exit Sub
    
ErrHdl:
    MsgBox "開かれていません。"

End Sub