On Jul 2, 8:10*pm, Charlie wrote:
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- Hide quoted text -

- Show quoted text -

Hi,

I also used your formula, it is also good, thank you for taking time
for me.

Best Regards.

Shahzad