Here is my code for the initial 'FIND':
Sub SEARCH()
Dim c As Range
Dim s
s = Range("A3").Value
Set c = Cells.Find(What:=s, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
MatchCase:=False)
c.Select
End Sub

It works great, but it's insufficient for what I'm wanting to accomplish and
I'm not good enough with this code to get to the next level.
--
FirstVette52


"Don Guillett" wrote:

Look in the vba help index for FIND and FINDNEXT

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"FirstVette52" <(My User name is Firstvette 52, too) firstvet52@(my ISP
E-mail provider is) netzero.com wrote in message
...
I need to put a search box on a spreadsheet that allows the user to type in
values and click a button to search for the next cell that contains
whatever
is entered, in part or in whole, whether at the beginning, middle, or end,
and is not case sensitive.

The 'box' is cell A3 and the range to be searched is any cells that
contain
values (numbers or text). I'm just getting rolling with VBA so I'm not too
good with coding or modifying these macros. But the macro in this case
will
be tied to a button beside the cell.

The goal is to have the look and feel of a Web Search tool that won't
glitch
when the user enters junk.

Thanks in advance for any help!
--
FirstVette52