View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
ste mac ste mac is offline
external usenet poster
 
Posts: 117
Default Highlight the exact value

Hi, the macro below is curtesy of this ng.

The only problem is that if a value to hightlight
is say, a '7' it will hightlight '17' I presume that
this is because there is a '7' in '17' ...

Can any kind soul alter the code so it highlights
the exact values in the range please as I may have
to hightlight as many as 20 values in 18,000

cheers, ste

Sub colourrowsin()
Dim i As Long
Dim Lookupvalue
Dim c As Variant
'Clear the current range
Range("A3:A52").Select
Selection.Interior.ColorIndex = xlNone

For i = 2 To 7 ' Look at values in T2 to T7
Lookupvalue = Cells(i, 20).Value
'{Search A3:A52 for a match to Lookupvalue}
With Range("A3:A52")
Set c = .Find(Lookupvalue)
If Not c Is Nothing Then
'(if match then highlight the cell in range}
Range(c.Address).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
End If
End With
Next

End Sub