Hi Subliminal,
Try assigning the following code to a button::
'=============
Public Sub Tester001()
Dim rng As Range
Dim rngFound As Range
Dim sStr As String
Set rng = Range("A1")
sStr = rng.Value
Set rngFound = Cells.Find(What:=sStr, _
After:=Selection, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext)
If rngFound.Address = rng.Address Then
Set rngFound = Cells.FindNext(rngFound)
End If
rngFound.Activate
End Sub
'<<=============
If you were unsure of the required syntax, you would find the macro recorder
an invaluable tool.
---
Regards,
Norman
"SubliminalJones"
<SubliminalJones.20q0ps_1135724107.7898@excelfor um-nospam.com wrote in
message news:SubliminalJones.20q0ps_1135724107.7898@excelf orum-nospam.com...
Hello and "Happy Days off for Celebrating Something...or not".
I was trying to make a macro that would allow me to type a word in A1,
and touch an object to do a keyword search based on A1.
Can I do that?
Thanks all!!
SJ.
--
SubliminalJones
------------------------------------------------------------------------
SubliminalJones's Profile:
http://www.excelforum.com/member.php...o&userid=27597
View this thread: http://www.excelforum.com/showthread...hreadid=496293