Dear Friends,

I want to check whether cell has #REF ! error? I am trying to get the
values of a cell range. If any cell has an error "#REF!" then
"ActiveCell.value" fails. Whats a way to check whether cell has an
error so I can consider any default value for that cell.

Regards,

Vinit

Hi Vinit,

Try something like:


'======================
Sub Tester()

Dim rng As Range
Dim rcell As Range

Set rng = Range("A1:A50")

For Each rcell In rng.Cells
If IsError(rcell.Value) Then
If rcell.Value = CVErr(2023) Then
'do something, e.g.:
MsgBox "Error"
End If
End If
Next

End Sub

'<<======================

---
Regards,
Norman



"Vinit" wrote in message
ups.com...
Dear Friends,

I want to check whether cell has #REF ! error? I am trying to get the
values of a cell range. If any cell has an error "#REF!" then
"ActiveCell.value" fails. Whats a way to check whether cell has an
error so I can consider any default value for that cell.

Regards,

Vinit

Thanks Norman,
I solved it using a similar soltion.

If(Application.IsError(ActiveCell.Value))Then
MsgBox " Cell contains error handle it"
Else
MsgBox " Cell does not contain error"
EndIf

Regards,

Vinit

Norman Jones wrote:
Hi Vinit,

Try something like:


'======================
Sub Tester()

Dim rng As Range
Dim rcell As Range

Set rng = Range("A1:A50")

For Each rcell In rng.Cells
If IsError(rcell.Value) Then
If rcell.Value = CVErr(2023) Then
'do something, e.g.:
MsgBox "Error"
End If
End If
Next

End Sub

'<<======================

---
Regards,
Norman



"Vinit" wrote in message
ups.com...
Dear Friends,

I want to check whether cell has #REF ! error? I am trying to get the
values of a cell range. If any cell has an error "#REF!" then
"ActiveCell.value" fails. Whats a way to check whether cell has an
error so I can consider any default value for that cell.

Regards,

Vinit