エラー1004: 別シートを参照してvlookupする時に反映されない

Question

別シートを参照してvlookupで項目を反映させたいのですが、参照範囲のコードの部分で以下のエラーメッセージが発生しています。

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

Run-time error'1004':
Method 'Range' of object'_Worksheet' failed

該当のソースコード

Set SearchRange = SearchSheet.Range(Cells(1, 1), Cells(RangeMaxRow, 8))

試したこと

具体的に範囲にセル番地を入れてみましたところ、該当のコード自体はエラーがありませんでしたが。vlookupのコードで同じエラーが出てきてしまいます。

Set SearchRange=SearchSheet.Range("A1:H6") 'セル番地を入れてみました

Cells(i, 22) = Application.WorksheetFunction.VLookup(SearchWord, SearcgRange, 8, False) 'ここでエラー1004が出てきてしまいます

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

全体のコードです。
Sub InputM()

Sheets(1).Activate
With ActiveSheet

Dim SearchWord As String
Dim SearchRange As Range
Dim RangeMaxRow As Long
Dim SearchSheet As Worksheet
Dim i As Long

Set SearchSheet = Worksheets(Worksheets.Count)

RangeMaxRow = SearchSheet.Cells(Rows.Count, 1).End(xlUp).Row

Set SearchRange = SearchSheet.Range(Cells(1, 1), Cells(RangeMaxRow, 8))

For i = 5 To 900

SearchWord = Cells(i, 4)
Cells(i, 22) = Application.WorksheetFunction.VLookup(SearchWord, SearchRange, 8, False)

Next i

End With

Answer 1

こちらではどうでしょう。

Set SearchRange = SearchSheet.Range(SearchSheet.Cells(1, 1), SearchSheet.Cells(RangeMaxRow, 8))

Comments

[AkiKae]

ご回答ありがとうございます！
試してみたところ、うまくいきました。二重でSearchSheetが必要なのですね。

しかしながら、"試したこと"の項目で書きましたvlookupのコードでまたしても
エラー1004が出てきてしまいました。
Cells(i, 22) = Application.WorksheetFunction.VLookup(SearchWord, SearchRange, 8, False) 'ここでエラー1004が出てきてしまいます。
エラーメッセージは以下です。
Run-time error '1004':
Unable to get the VLookup property of the WorksheetFunction class.
もし宜しければ、こちらもご指導頂けると幸甚です。
よろしくお願いいたします。

[radames1000]

ひっかけるのが数値なら、
Dim SearchWord As StringをLong宣言に変更するとか、
以下をお試しいただくのではどうでしょう。
Cells(i, 22) = Application.WorksheetFunction.VLookup(SearchWord * 1, SearchRange, 8, False)
Cells(i,4)の値次第で対応が変わると思います。

[AkiKae]

早速ご返信ありがとうございます！
エラー無く進めることができました。素晴らしいです。