Err

実行時エラー指定

On Error GoTo Err_Hander

Err_Hander:

   If Err.Number = 1004 Or Err.Number = 70 Then

       MsgBox "「AAA.xls」が開いています。" & Chr(13) & "閉じてください。"

   End If