How to check whether cell has #REF ! error?

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" <[email protected]> wrote in message
news:[email protected]...
> 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" <[email protected]> wrote in message
> news:[email protected]...
> > 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
> >