Hi SLS,

'\\ Use the SpecialCells method to identify all formula cells in a given
range:
On Error Resume Next
Set rng = Range("A1:D100").SpecialCells(xlFormulas)
On Error GoTo 0

'\\ Check if an individual cell contains a formula:
If Range("A1").HasFormula = True Then
'A1 contains a formula
End If

'\\ Determine if all cells in a range are formulae:
If rng.HasFormula = True Then
'all the cells in rng1 are formulae
End If


---
Regards,
Norman



"SLS" wrote in message
...
Does anyone know a way to identify which cells contain values vs formulas?