Please have a look and see if my inquiry makes sense....thanks guys!!!

[pedie]

The code below seaches whatever words is entered in cell "A1", simply control+f thing...what i want here is that everytime i hit enter it searches the next result, i want that to be highted temporarily with any colour say blue....so that it makes my work easy to locate. Thanks
in simplr word hilight the search result with colour, but when the search move to the other cell it should not leave the colour behind. thanks

Sub Macro2()
'find the word in cell a1
Cells.Find(What:=Range("A1").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub

 

[pedie]

PS, I want it to preview in blue colour

 

[pedie]

4 of us shouting for more help!!!

When i ctrl+f and search by macro how can i preview it with colour....


Thanks again!!!

 

[BlockMaker]

Try this:

'Clears the cell of the color before searching
ActiveCell.Interior.Color = xlNone
 
'Search for value in A1 
Cells.Find(What:=Range("A1").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
 
'Colors the cell blue if result found
ActiveCell.Interior.Color = RGB(0, 0, 255)

 

[pedie]

Was out of site yesterday so couldn't test the code...i hope this will work.

Thanks

 

[pedie]

gREAT gREAT Great...!!!

It works....thanks alot!!