Find Help

[Pete]

I have this piece of code that I would like some help
with. What I am trying to do is find a match to whatever
value is in CurrentName, from the range NameList. But when
I try to record this I only get a absolute value reference
in the code. What do I need to change my look up value to
to accomplish this?

If ComboBox1 = "Aces" Then
Range("CurrentName").Select
Selection.Copy
Range("Namelist").Select 'CurrentName will be in this
range.
Selection.Find(What:="Pete", After:=ActiveCell,
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:=False).Activate 'Pete
is what was copied from CurrnetRange into the clipboard.
Selection.FindNext(After:=ActiveCell).Activate
Range("D14").Select
AddTotal

Any help would be helpful.
Thanks
Pete

 

[Bob Phillips]

If ComboBox1 = "Aces" Then
With Range("Namelist")
.Find(What:=Range("CurrentName").Value, _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Activate
.FindNext(After:=ActiveCell).Activate
End With
Range("D14").Select
AddTotal

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)