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