Excel Find Method

I get the error, "Unable to get the Find property of the Range class",
whenever I use the Find method in Excel VBA. This is my usage:

Set rngTemp = rngCol1.Find("Party Name:", "A1", xlValues, xlPart, xlByRows,
xlNext, False)

Any ideas?

This works with me:

Sub test()

Dim rngCol As Range
Dim rng As Range

Set rngCol = Columns(1)

Set rng = rngCol.Find(What:="test", _
After:=Cells(1), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)

If Not rng Is Nothing Then
MsgBox rng.Address
End If

End Sub

RBS



"JonWayne" <jongunn@bellsouth.net> wrote in message
news:rD55e.38182$vK6.13070@bignews3.bellsouth.net...
>I get the error, "Unable to get the Find property of the Range class",
> whenever I use the Find method in Excel VBA. This is my usage:
>
> Set rngTemp = rngCol1.Find("Party Name:", "A1", xlValues, xlPart,
> xlByRows,
> xlNext, False)
>
> Any ideas?
>
>

Are you using Excel 97 and executing this from a commandbutton? If so
change the TakeFocusOnClick property of the commandbutton to False.

--
Regards,
Tom Ogilvy


"JonWayne" <jongunn@bellsouth.net> wrote in message
news:rD55e.38182$vK6.13070@bignews3.bellsouth.net...
> I get the error, "Unable to get the Find property of the Range class",
> whenever I use the Find method in Excel VBA. This is my usage:
>
> Set rngTemp = rngCol1.Find("Party Name:", "A1", xlValues, xlPart,
xlByRows,
> xlNext, False)
>
> Any ideas?
>
>

Looking a little closer at your code it should probably be:

Set rngTemp = rngCol1.Find("Party Name:", rngCol1(1), _
xlValues, xlPart, xlByRows,xlNext, False)

--
Regards,
Tom Ogilvy


"JonWayne" <jongunn@bellsouth.net> wrote in message
news:rD55e.38182$vK6.13070@bignews3.bellsouth.net...
> I get the error, "Unable to get the Find property of the Range class",
> whenever I use the Find method in Excel VBA. This is my usage:
>
> Set rngTemp = rngCol1.Find("Party Name:", "A1", xlValues, xlPart,
xlByRows,
> xlNext, False)
>
> Any ideas?
>
>