excel - 複数のワークシートにまたがる場合は数える Excel vba

Question

以下のコードの実行中にオブジェクト定義エラーが発生します。コードのデバッグを手伝ってください。

For i = 5 To 11
Cells(i, G).Value = Application.WorksheetFunction.CountIf(Workbooks(1).Sheets(1).Range("H:H"), Cells(i, F).Value) + Application.WorksheetFunction.CountIf(Workbooks(1).Sheets(2).Range("H:H"), Cells(i, F).Value)
Next i