Sub エラーかどうか判定してIFで処理を分ける() If IsError(Range("A1")) = True Then 'Trueがエラー、Falseが非エラー MsgBox "エラーです" Else MsgBox "エラーではありません" End If End Sub