Sub MetIndividualGoals() Dim i As Long With ActiveSheet For i = 5 To 7 If .Range("E" & i).Value >= .Range("F" & i).Value Then .Range("H" & i).Value = "Yes" Else .Range("H" & i).Value = "No" End If Next End With End Sub