Highlighting Found Cells

[1clncc]

In Excel, with Ctrl and mouse, I can click multiple cells. Those
cells would then be temporarily, until next mouse click, stay in a
Blue Hightlited state.

How can I achieve that with the below FIND rountine for those found
cells

************************************************************
With Range("Post_Code2")
Set c = .find(NNN, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Pattern = xlPatternGray50
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
********************************************************************

 

[Vasant Nanavati]

I'm tired, so this might be a bit cumbersome, but it seems to work:

Sub SelectAllFound()
Dim c As Range, firstaddress As String, newc As Range
With Range("Post_Code2")
Set c = .Find("NNN", LookIn:=xlValues)
If Not c Is Nothing Then
Set newc = c
firstaddress = c.Address
Do
Set c = .FindNext(c)
Set newc = Union(newc, .FindNext(c))
Loop While Not .FindNext(c) Is Nothing And c.Address <>
firstaddress
End If
End With
newc.Select
End Sub

I wasn't sure what NNN was supposed to be so I changed it to the string
"NNN".
_______________________________________________________________________