Error check on sheet
Steph,
You could try something like
Dim rng As Range
Set rng = ActiveSheet.UsedRange
Debug.Print Evaluate("SUMPRODUCT(--(ISERROR(" & rng.Address & ")))")
just take action if the result is greater than 0
--
HTH
Bob Phillips
"Steph" wrote in message
...
Thanks Bob. But this is scheduled code that automatically runs. I was
hoping for a solution that determines if errors exist and then exits the
sub. No user will see the conditional formatting of the errored cells.
"Bob Phillips" wrote in message
...
You could use conditional formatting.
Select all the cells and use a formula of =ISERROR(A1) and choose a
colour.
All errors are then flagged.
--
HTH
Bob Phillips
"Steph" wrote in message
...
Hello. Is there a way to simply scan Sheet1, and determine if any
cells
equate to an error? I am taking data from a sheet and uploading it t
an
external system. I'd like to have the macro stop as soon as it finds
an
error anywhere in sheet1. Thanks so much.
|