Hi Simsjr,

Try:

Sub Tester02()
Dim Rng As Range
Dim myCount As Long

On Error Resume Next
Set Rng = Columns("A").SpecialCells _
(xlCellTypeAllFormatConditions)
On Error GoTo 0

If Not Rng Is Nothing Then
myCount = Rng.Count
Else
myCount = 0
End If
MsgBox myCount

End Sub

---
Regards,
Norman



"simsjr" wrote in message
...
Hello,

Anyone know how to make Excel 97 count all the cells in a column and count
how many have conditional formatting applied?