セルの数式エラーを判定するには IsError()

[excelvba]

エラーのあるセルの内容にアクセスしようとするとマクロ止まっちゃうので、ちゃんと分岐する必要あり。

    If IsError(ActiveCell.Value) Then
　　　　MsgBox "エラーです"
　　Else
　　　　MsgBox "正常です"
　　End If

ネタ元