Excel Search

[DMT Dave]

Hi Guys, Is there a method to add text to an Excel cell for example type in Cell (2 ,3) CLICK TO SEARCH This is the easy part as i have already created in Access! the harder part, when you click on this cell it brings up the "Find and Replace" option ??? instead of pressing Crtl and F key ?



Thanks in advance

[ranman256]

Cells.Find(What:="bob", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False , SearchFormat:=False).Activate

tho, the constants may not work in Access, so you can replace them with #'s below:
xlPart=2
xlWhole=1
xlNext=1
xlByRows=1

[DMT Dave]

Hi ranman256, thank you so much, where do i place that code ?

Is it from my Access code ? .Worksheets(9).Cells(2, 1) = "AND PRESS 'F' KEY" replaced with

.Worksheets(9).Cells(2, 1) = Cells.Find(What:="bob", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False , SearchFormat:=False).Activate ?