Sub エラー発生時の処理を指定する() On Error GoTo エラー発生で飛ぶ '通常処理 '・・・ '・・・ Err.Raise 0 'エラー発生 エラー発生で飛ぶ: 'エラー時の処理 End Sub