Formating every other row

[gheyman]

Is there a better way to do this

Range("D8:E8").Select
With Selection.Interior
.TintAndShade = -4.99893185216834E-02
End With
Range("D10:E10").Select
With Selection.Interior
.TintAndShade = -4.99893185216834E-02
End With
Range("D12:E12").Select
With Selection.Interior
.TintAndShade = -4.99893185216834E-02
End With
Range("D14:E14").Select
With Selection.Interior
.TintAndShade = -4.99893185216834E-02
End With
Range("D16:E16").Select
With Selection.Interior
.TintAndShade = -4.99893185216834E-02



I am doing this all the way down to row 64 It is every other row tint the cells this color grey

 

[JackDanIce]

Try:

Dim i as Long
Application.ScreenUpdating = False
For i = 8 to 64 Step 2
  Range("D" & i & ":E" & i).Interior.TintAndShade = -4.99893185216834E-02
Next i
Application.ScreenUpdating = True