Test if Cell range contains error

[erock24]

I'm trying to test if a cell range that has a formula in it shows an error. I've tried this code:

If BudSht.Range("CheckValue") = Error Then Exit Sub

i'm getting a type mismatch debug, even though the cell range shows to have an 'Error 2023'

is there a way to test if a cell has an error in it in vba?

 

[PA HS Teacher]

Could you use a UDF such as:

<font face=Courier New><SPAN style="color:#00007F">Public</SPAN> <SPAN style="color:#00007F">Function</SPAN> HasError(Rng <SPAN style="color:#00007F">As</SPAN> Range) <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Boolean</SPAN><br>   <SPAN style="color:#00007F">Dim</SPAN> C <SPAN style="color:#00007F">As</SPAN> Range<br>   <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> C <SPAN style="color:#00007F">In</SPAN> Rng.Cells<br>      <SPAN style="color:#00007F">If</SPAN> Application.WorksheetFunction.IsError(C) <SPAN style="color:#00007F">Then</SPAN> HasError = <SPAN style="color:#00007F">True</SPAN><br>   <SPAN style="color:#00007F">Next</SPAN> C<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Function</SPAN></FONT>

 

[JoeMo]

I'm trying to test if a cell range that has a formula in it shows an error. I've tried this code:

If BudSht.Range("CheckValue") = Error Then Exit Sub

i'm getting a type mismatch debug, even though the cell range shows to have an 'Error 2023'

is there a way to test if a cell has an error in it in vba?

If IsError(BudSht.Range("CheckValue"))  Then Exit Sub

 

[erock24]

Joemo worked great!!