Loop question

[MOB]

Range("M8").FormulaR1C1 = "Yes"
Range("M8").FormulaR1C1 = "No"
        
Range("M19").FormulaR1C1 = "Yes"
Range("M19").FormulaR1C1 = "No"
        
Range("M30").FormulaR1C1 = "Yes"
Range("M30").FormulaR1C1 = "No"

Using the above as an example, where the range increments by 11 each time until M1097, what would the syntax be to simplify this as a loop?

I know the code seems to not do much, but entering "Yes" in a cell triggers an automatic system posting, "No" hibernates it.

Thanks

 

[ranman256]

Public Sub SetYesNo()
Dim i As Long

i = 8
While i < 1098
    Range("M" & i).FormulaR1C1 = "Yes"
    Range("M" & i).FormulaR1C1 = "No"
    i = i + 11
Next
End Sub

 

[MARK858]

Or another way

Sub Step11()
    Dim i As Long
    For i = 8 To 1097 Step 11
        Cells(i, "M").Value = "Yes"
        Cells(i, "M").Value = "No"
    Next
End Sub

 

[njimack]

Sub Increment()
Dim i As Long
Application.ScreenUpdating = False
For i = 8 To 1097 Step 11
    With Cells(i, 13)
        .FormulaR1C1 = "Yes"
        .FormulaR1C1 = "No"
    End With
Next i
Application.ScreenUpdating = True
End Sub

 

[MOB]

Thanks all