Sub Test()
Dim irow As Long
For irow = 2 To 4968 Step 26
If Cells(irow, "R").Value = 0 Then
Cells(irow, "B").Value = "A/C closed"
Next irow
End Sub


HTH
--
AP

"Robert" a écrit dans le message de
...
Would appeciate VBA code for a macro that does the following:

My range from Row 2 to Row 4993 has records in sets of 26 rows each.
ProceduIf Activecell (R2, Range name "Start")=0,move 16 columns left to
be at B2, write "A/C closed"
Then move 16 columns right (back to column R), 26 rows down (R28) for
next
record, repeat procedure

Else move down 26 rows (R28), repeat procedure
And so on until last record at R4968

Thank you,
--
Robert