Hope this will help you
through Code make the selection of required range
and 'tofind' is the text you want to find

Set FoundText = Selection.Find(What:=tofind, After:=ActiveCell, LookIn _
:=xlvalues, LookAt:=xlwhole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)

If Not FoundText Is Nothing Then
FoundText.Select
FoundCellRow = ActiveCell.Row
Else
End If





"Stefi" wrote:

You have a spelling mistake:
write xlValues instead of x1Values etc.!
Use an On Error statement, becouse Find generates an error in case of not
found.

Regards,
Stefi


€žranswert€� ezt Ã*rta:

I am trying to write a simple "Find" Procedure that I will expand on once I
get it to work. I have:

Range("A1:G16").find(What:="abc", LookIn:=x1Values, LookAt:=x1Whole,
SearchOrder:=x1ByColumns).Activate

When I run it I get a "scpript out of range error". What am I doing wrong?
Thanks