'-------------------------

On Error Goto エラー

Exit Sub

エラー：

MsgBox Err.Description & Chr(13) & Chr(13) & "処理できません。",16,"処理中止"

Resume Next