Find/Search code tweak help - Hopefully simple :)

Hi all,

I'm looking for a bit of help. I found this item of code on the web but need to modify it ever so slightly.

The code below will locate and select cells containing Kenny. What I want to do is create a little search cells(C5) on my spreadsheet and have the code reference whatever is typed into the search cell. I'm sure it's a simple adjustment. I've tried changing the What:="Kenny" to What:="=C5" & What:=C5 all without success.

Sub find()
Cells.find(What:="Kenny", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True).Activate
End Sub

Any thoughts? The code appears to do what I need but maybe there is a better way?

V new at this stuff so any help appreciated.

Regards.

Immediately after Sub find()

DIM SrchName as String
SrchName = Range("C5").Value

and then in your Cell.Find line what = SrchName (no quotes)
Does that work for you?