I have 4 columns with data in them. I first check to see if two cells match.
If so, I want to fill in the value of a cell in a third column with the
corresponding value from a 4th Column. Nothing happens...

For i = 5 To numberofRows
If Cells(i, 111).Value = Cells(12, j).Value Then
Cells(k, j).Value = Cells(i, 112).Value
k = k + 1
End If
Next

Help would be appreciated. BTW, thanks to those who have assisted in
previous requests.

Jim Berglund