Hi folks,

I'm trying to check my worksheets for errors and inconsistencies. For this,
I thought to use some VBA code that would color the cells depending on if
the content is the text, number, formula, reference, etc...

I've already found the code for "formula-testing" (provided by Gord Dibben)
which is like this:
---
Sub colorcells()
Dim Cel As Range
For Each Cel In ActiveSheet.UsedRange
If Cel.HasFormula Then
Cel.Interior.ColorIndex = 24 '''-4142 for "No Fill"
End If
Next
End Sub
---

I would like to incorporate the test for other contents (with different
colors), but apparently there is no such thing as "Cel.HasReference" or
"Cel.HasText". For sure, I will explore VBA by myself, but some help from
your side would be greatly appreciated!

Mark

PS: If you think that there are some other tests that may prove quite
useful, pls don't hesitate to suggest it he-)

Hi

one way to figure these out is to record a macro that uses the functionality
in edit / goto / special to select the different types of cells ...

Hope this helps
Cheers
JulieD

"markx" wrote in message
...
Hi folks,

I'm trying to check my worksheets for errors and inconsistencies. For
this,
I thought to use some VBA code that would color the cells depending on if
the content is the text, number, formula, reference, etc...

I've already found the code for "formula-testing" (provided by Gord
Dibben)
which is like this:
---
Sub colorcells()
Dim Cel As Range
For Each Cel In ActiveSheet.UsedRange
If Cel.HasFormula Then
Cel.Interior.ColorIndex = 24 '''-4142 for "No Fill"
End If
Next
End Sub
---

I would like to incorporate the test for other contents (with different
colors), but apparently there is no such thing as "Cel.HasReference" or
"Cel.HasText". For sure, I will explore VBA by myself, but some help from
your side would be greatly appreciated!

Mark

PS: If you think that there are some other tests that may prove quite
useful, pls don't hesitate to suggest it he-)