rdz.Select
With Selection
.FormatConditions.Delete
If .Resize(.Rows.Count, 1).Count = 1 Then Exit Sub
adr = .Cells(1).Address(0, 0)
adr2 = .Resize(.Rows.Count, 1).Address(1, 0)
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=MAX(" & adr2 & ")=" & adr
.FormatConditions(1).Font.Color = vbRed
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=IF(COUNTIF(" & adr2 & ",0)0,SMALL(" & adr2 &
",COUNTIF(" & adr2 & ",0)+1)=" & adr & ",MIN(" & adr2 & ")=" & adr & ")"
.FormatConditions(2).Font.Color = vbBlue
End With

the upper source 2 line.... is replaced below follow 1 line.
with rdz

and then, if I run that macro, the adr indicate wrong address curiously.

*** Sent via Developersdex http://www.developersdex.com ***