VBA: Test if values are not unique

[BIGTONE559]

Greetings,

I need help with methods of testing whether a range of data has the same value. . .(Boolean)

e.g. Range("A1:A10").value=Variable

I would like to test if the values in A1:A10 are the same.

Please Help!

 

[pgc01]

Hi

To see if all the values in A1:A10 are equal, try, for ex.:

Sub Test()
Dim r As Range
 
Set r = Range("A1:A10")
 
MsgBox Application.CountIf(r, "<>" & r(1)) = 0
 
End Sub