'Change rownum to the the first row number where data occurs
rownum = 6
For i = 1 To (lastrow - rownum) Step 2
Range("B" & rownum + i & ":AK" & rownum + i).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Next i
End Sub
Try highlighting the entire sheet, and using conditional formatting,
make Canodition1 be "Formula Is" =EVEN(ROW(A1))=ROW(A1), and set the
formatting to highlight the background.
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.