Dim Cell As Range

For Each Cell In Range("A1:A300")
If (Cell.Row And 1) = 1 Then
Rows(Cell.Row).Interior.ColorIndex = 37
Else
Rows(Cell.Row).Interior.ColorIndex = 35
End If
Next Cell


"Shazi" wrote:


Greetings from Madinah.

I am preparing VBA application, and I have DailyPurchase worksheet,
having 300 records. User can feed data by UserForm, having 12
different fields.

thats working fine. but I want to enter all the data like this.

Row1 all entries should be Blue
Row2 all entries should be Green
Row3 all entries should be Blue
Row4 all entries should be Green
Row5 all entries should be Blue like this

I mean one row should be Blue and next row should be Green, for Easy
Viewing
all data in worksheet.

If it is possible, pls send me your suggessions, and pls tell me this
should be possible from Userform or Worksheet Event.

with best regards.

Syed Shahzad Zafar.
Madinah