このwhatの部分に変数を用いて、検索ワードを順にやっていきたいのですが、
エラーが出てしまいます。
初心者であまりよくわかってないのですが、ご教授お願いします。

Sub 入金額実査()
  Dim i
  Dim rngHitCell As Range
  Dim rngSearchArea As Range
  Dim keyWord As String
  For i = 7 To 201
    keyWord = Worksheets("データ").Cells(i, 7)
  
  Set rngSearchArea = Worksheets("売上表").Range("F7:F122")
  Set rngHitCell = rngSearchArea.Find(what:=keyWord, LookIn:=xlValues)
   
 Dim strAddress As String
  Dim intRowNo As String
  Dim intColNo As String
 
  strAddress = rngHitCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)
  intRowNo = rngHitCell.Row
  intColNo = rngHitCell.Column
  
  Worksheets("データ").Cells(i, 4) = Worksheets("売上表").Cells(intRowNo, 2)

  Next
  
End Sub