Checking Cell Values Row-by-Row

[News Reader]

I want to check the value in column M for each row and possibly change
the value in column F. Here's what I've written that works:

Sub test()
i = 2
Do Until i = 100
If Range("M:M").Cells(i).Text = "H" Then Range("F:F").Cells(i)
= "H"
i = i + 1
Loop
End Sub

Is there a better way to code this? Thanks for any help.

 

[JE McGimpsey]

One way, a bit more efficient since it performs fewer range resolutions:

Public Sub test2()
Dim rCell As Range
For Each rCell In Range("M1:M100")
With rCell
If .Text = "H" Then .Offset(0, -7).Value = "H"
End With
Next rCell
End Sub

But for 100 cells, I wouldn't expect to see much difference in execution
time.