excel vba Find でインデックスが有効範囲にありませんエラーが発生します

Question

Find元のRangeオブジェクトは存在しますが「インデックスが有効範囲にありません」エラーになります。
原因を教えて下さい。

public sub sub1(filePath as string)
On Error GoTo ErrProc

' 下のブックとシートが存在するかはチェック済
Dim wb As Workbook
Set wb = Workbooks.Open(filePath, False, True)

Dim st As Worksheet
Set st = wb.Worksheets("xx")

Dim rng As Range
Set rng = st.Cells.Find("xxx", , xlValue, xlWhole)
↑ ここで「インデックスが有効範囲にありません」エラーが発生

'以下処理は略してあります。

ErrProc:
略
End Sub

色々調べて見ましたが「インデックスが有効範囲にありません」エラーはオブジェクトが無いからと
書いてありますがstをウオッチで見ても存在しています。

Answer 1

xlValueではなくxlValuesにしてみてください

Set rng = st.Cells.Find("xxx", , xlValues, xlWhole)

Range.Find メソッド (Excel)

LookIn 省略可能 Variant 使用できるのは、XlFindLookIn 定数: xlFormulas、xlValues、xlComments あるいは xlCommentsThreaded のいずれかです。

Comments

[koya372]

回答ありがとうございます。
解決しました。
丁寧な説明もありがとうございます。

Answer 2

× xlValue
○ xlValues

Comments

[koya372]

回答ありがとうございます。
解決しました。

Answer 3

質問のコードは余分なカンマがありますので削除します。

Set rng = st.Cells.Find("xxx", xlValue, xlWhole)

Comments

[koya372]

回答ありがとうございます。
カンマを外したら「型が違います」エラーになりました。
Set rng = st.Cells.Find(What:="xxx", LookIn:=xlValue, LookAt:=xlWhole)にしても
インデックスエラーになります。

[radames1000]

今回は引数Afterの記載を省くのにカンマを連続して記載しているので余分ではありません。

[meg_]

radames1000さんへ
そうだったんですね。失礼しました。