エラー処理

On Error GoTo errorHappened
...
errorHappened:
'エラーメッセージを表示
MsgBox(Err.Description)