Determining if a range of cells is missing a formula
Bob - Thanks!!!
"Bob Phillips" wrote:
Function IsFormula(rng As Range) As Long
For Each r In rng
If Not r.HasFormula Then
IsFormula = IsFormula + 1
End If
Next
End Function
--
---
HTH
Bob
(change the xxxx to gmail if mailing direct)
"Gary''s Student" wrote in message
...
Function IsFormula(rng As Range) As Boolean
IsFormula = False
For Each r In rng
If Not r.HasFormula Then
Exit Function
End If
Next
IsFormula = True
End Function
--
Gary's Student
"Bob" wrote:
I have a range of cells containing formulas. I'm trying to write a UDF
that
will search the range and return either TRUE or FALSE if one or more
cells
are missing the formula (due to someone inadvertently deleting them):
Function IsFormula(rng As Range) As Boolean
IsFormula = rng.HasFormula
End Function
Unfortunately, the UDF returns #VALUE! when a formula is missing. I
would
appreciate any help in fixing the aforementioned UDF.
Thanks, Bob
|