Findメソッドのコードを打ちたいのですがエラーになってしまいます。

Question

前提・実現したいこと

Findメソッドのコードを打ちたいのですがエラーになってしまいます。

【指定した選択範囲から「無制限」の文字列の入ったセルを取得→一行したのセルの値を取得】
のコードを作りたいと思っています。

▼現在のコード
Dim i As Long '検索範囲の最終行
Dim j As Long '検索範囲の最終列
Dim Rng As Range

i = Cells(Rows.Count, 1).End(xlUp).Row    '最終行の取得
j = "61"                                                 '最終列の指定
   

Set Rng = ThisWorkbook.ActiveSheet.Range("L7", Cells(i, j)) _
.Find("無制限").Offset(1).Value

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

実行時エラー '91':
オブジェクト変数またはWithブロック変数が設定されていません。

該当のソースコード

Set Rng = ThisWorkbook.ActiveSheet.Range("L7", Cells(i, j)) _
.Find("無制限").Offset(1).Value

試したこと

選択範囲の指定に間違いがないかセレクトメソッドで確認
そちらは問題ありませんでした。

補足情報（FW/ツールのバージョンなど）

Macを使用しているため、そちらの影響があるかもしれません。

Answer 1

RngというRange型の変数に.Valueを入れようとしている点と、
Findで見つからなかった場合に Nothingに対するOffsetとなってしまう点が気になりました。
（ケース的にあるのかどうかわかりませんが、）

Dim i As Long         '検索範囲の最終行
Dim j As Long         '検索範囲の最終列
Dim Rng As Range

i = Cells(Rows.Count, 1).End(xlUp).Row    '最終行の取得
j = 61                                                 '最終列の指定

Set Rng = ThisWorkbook.ActiveSheet.Range("L7", Cells(i, j)) _
.Find("無制限")

Dim v
If Not Rng Is Nothing Then v = Rng.Offset(1).Value

Comments

[sun.nagasawa]

回答ありがとうございます！！
おかげで改善できました！

Answer 2

何でエラーになっているのか一つずつ分割してみてはいかがでしょうか。

Set r1 = ThisWorkbook.ActiveSheet.Range("L7", Cells(i, j))
Set r2 = r1.Find("無制限")
Set r3 = r2.Offset(1)
Set r4 = r3.Value

Comments

[sun.nagasawa]

回答ありがとうございます！
分割してみたところ、Findメソッド自体は問題なく動いているようでした！
VBAを始めたばかりで分割もうまく打てなかったので、今後の参考にさせていただきます！