xlVisibleCell issue

[Gil149]

Guys, I use code to autofilter column C, but I need the code to do something I cannot figure out (tried google and forums). I need to take the filtered results and see if they all match. I would like to but this into an if/then statement.

Example
Dim rng As Range
B = rng.Columns("C:C").SpecialCells(xlCellTypeVisible)
If B all match Then
Do stuff
End If

That is what I was thinking might work. Thanks for the help in advance!

 

[Gil149]

Is there a way to make this work with the visible cells only after autofilter is used? It does what I need it to do, but just with autofiltered results only.

Function CUniqueValues(InputRange As Range) As Long
Dim rng As Range, UniqueValues As New Collection
Application.Volatile
On Error Resume Next
For Each rng In InputRange
UniqueValues.Add rng.Value, CStr(rng.Value)
Next rng
On Error GoTo 0
CUniqueValues = UniqueValues.Count
End Function