Excel VBA Find関数のインデックス範囲について

Question

前提・実現したいこと

Excel vbaで検索ツールを作りたいです。
内容としては、過去のある年を出し、その年をデータシートから検索するというものです。
関数を使い、過去の年を出すことはできましたが、
その年を使ってデータシートからの抽出ができません。

発生している問題・エラーメッセージ

インデックスが有効範囲にありませんと出てきてしまいます。
データシートのC列には西暦が並んでいます。

最終的にはリストビューに表示したいのですが、後ほど取り掛かろうと思うのでいったんMsgBoxにしています。

該当のソースコード

Private Sub CheckBox1_click()
Dim str As Long
Dim i As Range

str = DateAdd("yyyy", -2, Now)　'過去のある年を出す
TextBox1 = Format(str, "yyyy")　'テキストボックスに出す　→ここまではできました。

Set i = Worksheets("data").Range("C2:C528").Find(what:=TextBox1.Value, Lookat:=xlWhole)　'テキストボックスに出た数値を検索したい

MsgBox i.Value　

　　
End Sub

試したこと

whatの部分を変えたりしてみましたが、上手くいきませんでした。

Comments

[tatsu99]

>データシートのC列には西暦が並んでいます。
年だけがならんでいるのですか。
2020
2021
2022
のように。
それとも
2020/1/1
2020/1/2
のように日付がならんでいるのですか。

[naopee]

C列には2020,2021のように年だけが並んでいます。

Answer 1

Set i = Worksheets("data").Range("C2:C528").Find(what:=TextBox1.Value, Lookat:=xlWhole)

この行でエラーが出たのでしょうか。
だとしたら、data という名前のシートが存在しないのではないでしょうか。大文字小文字が違ってもエラーになります。確認ください。

Comments

[naopee]

確認したところ、dataではなく"Data"でした。初歩的なミスでした。
ご教示ありがとうございます。