Search entire sheet for text

See next code for the first run
a "x" is added in column "C" when exists
It takes time ...so to count will take really longer

Option Explicit

Sub Check()
Const InWsName = "List"
Const DataWsName = "Data"
Dim Rg As Range
Dim WV As String
Dim F

     For Each Rg In Range(Sheets(InWsName).Cells(1, 2), Sheets(InWsName).Cells(Rows.Count, 2).End(3))
        Rg(1, 2) = ""
        WV = Trim(Rg)
        With Sheets(DataWsName)
            Set F = .Cells.Find(What:=WV, After:=.Cells(1, 1), LookIn:=xlFormulas, _
                    LookAt:=xlPart, SearchDirection:=xlNext, MatchCase:=False)
        End With
        If (Not F Is Nothing) Then Rg(1, 2) = "x"
    Next Rg
    MsgBox ("Job Done")
End Sub