MaxVal InCol "or" Compare Cells InCol Highlight Max
 

Hello all

I want to hold in memory the highest value in the column. Then I want to
compare that value with every cell in that column. I would like to be able to
flag those lower values or highlight them. Any help would be much
appreciated. Thank You.


'Dims

Set rng3 = Range(Range("H17"), Range("H77").End(xlUp))
Dim ifirst As Integer
ifirst = 0

For Each c3 In rng3
If ifirst = 0 Then
Masterc3 = c3
ifirst = 1
Else
varMasterc3 = Split(Masterc3, ".")
varComParec3 = Split(c3, ".")

''Get highest value in each split

If varMasterc3(1) varComParec3(1) Then
c3.Interior.ColorIndex = 24
Else
Masterc3 = c3
End If

Next
'If InStr(1, c3.Text, "1.3.0.0", vbTextCompare) = 0 And c3.Text <
"" Then
'c3.Interior.ColorIndex = 24
'End If

If CheckBox2.Value = False Then Call CLRColourRange2