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

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

Thanks Ardus, but I get "Compile error:
Next without For
--
Robert

Hi Robert,

Try inserting:

End If

after:

Cells(irow, "B").Value = "A/C closed"


---
Regards,
Norman


"Ardus Petus" wrote in message
...
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

Norman, yes that did it.
Thank you so much for helping again.

Ardus, once again thank you
--
Robert