[vba] Cell Error Values > vb6.0/vba

You can insert a cell error value into a cell or test the value of a cell for an error value by using the CVErr function. The cell error values can be one of the following xlCVError constants.

Example

This example inserts the seven cell error values into cells A1:A7 on Sheet1.

myArray = Array(xlErrDiv0, xlErrNA, xlErrName, xlErrNull, _ 

 xlErrNum, xlErrRef, xlErrValue) 

For i = 1 To 7 

 Worksheets("Sheet1").Cells(i, 1).Value = CVErr(myArray(i - 1)) 

Next i

This example displays a message if the active cell on Sheet1 contains a cell error value. You can use this example as a framework for a cell-error-value error handler.

Worksheets("Sheet1").Activate 

If IsError(ActiveCell.Value) Then 

 errval = ActiveCell.Value 

 Select Case errval 

 Case CVErr(xlErrDiv0) 

 MsgBox "#DIV/0! error" 

 Case CVErr(xlErrNA) 

 MsgBox "#N/A error" 

 Case CVErr(xlErrName) 

 MsgBox "#NAME? error" 

 Case CVErr(xlErrNull) 

 MsgBox "#NULL! error" 

 Case CVErr(xlErrNum) 

 MsgBox "#NUM! error" 

 Case CVErr(xlErrRef) 

 MsgBox "#REF! error" 

 Case CVErr(xlErrValue) 

 MsgBox "#VALUE! error" 

 Case Else 

 MsgBox "This should never happen!!" 

 End Select 

End If

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.