For Each loop; worksheets.range

This should be a very simple procedure. I can't tell what is wrong. In the end the words "It worked" should populate to the far right. Not sure if I am incorrectly using the "concat" object variable in the IF statement. I'm not receiving any error messages. The hour glass does show after I run the macro, so something is happening. Can anybody offer some insight?

Sub populateSchI()
    
    Dim chargeNo As Range
    Dim concat As Range
    
    Set chargeNo = Worksheets("Schedule I").Range("A6")
    
    For Each concat In Worksheets("2008").Range("D:D")
        If concat.Value = chargeNo.Value Then
            concat.Offset(0, 7).Value = "It worked"
        End If
    Next concat
        

End Sub

You should supply a sample workbook for somebody to work with

I am assuming there could be a missing dim

    Dim r As Range
    Dim c As Range
    Set r = Range("G1", Range("G65536").End(xlUp))
    For Each c In r.Cells