If you drop .Cells from your If statement:

Dim rCell As Range
Dim rRng As Range
With Worksheets("zKeyWordCount")
Set rRng = .Range("c1", .Cells(.Rows.Count, "C").End(xlUp))
End With
For Each rCell In rRng 'Drop .Cells
....
Next

Then on my computer it only checks the cells in column "C"

"mscertified" wrote:

Someone gave me the below code but it scans every cell.
It was useful but now I need to look in specific columns, how do I do that?
I'm sure this must be a pretty basic question.

Dim rCell As Range
Dim rRng As Range
With Worksheets("zKeyWordCount")
Set rRng = .Range("c1", .Cells(.Rows.Count, "C").End(xlUp))
End With
For Each rCell In rRng.Cells
...
Next