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

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

You might try changing your 1 's to l 's . Not typing here. 1 is no the same
as l.
Also, you need not activate or select to work with your find

mycell=Range("A1:G16").find("abc", LookIn:=xLValues, LookAt:=xLWhole, _
SearchOrder:=xLByColumns).address


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"ranswert" wrote in message
...
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

Thanks alot

"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

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

You are welcome! Thanks for the feedback!
Stefi

€žranswert€� ezt Ã*rta:

Thanks alot

"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

It's not actually the .find that causes the error. It's the .activate that's
doing the damage.



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

--

Dave Peterson