Alternating color of lines

I need to write a macro in order to format a worksheet so that the line colors are alternating (ex: grey and white), for easy reading after print. However, the file will be change constantly by people that don't care much about formating colors....So I want to assing this macro to a button (I know how to do this part!)

I tried, but it didn't compile, and I couldn't get it right...

NOTE: The selection should start not from the begining (ex: line 4) and be applied until it meets an empty field in the A column.

Here is what it looked like.... I can do with a brand new code, but I would learn better if someone can also tell me what I did wrong!

To those who read the previous one:
Sorry about the code... I used the forum 2 years ago, but it wasn't like this.. (as far as I can remember!) Hope it satifies the rules now...It said not to reply... hope that starting a new thread isn't bad either! So here it is again!

Dim Count As Integer, End As Integer
Count = 4

Do
Rows("Count:Count").Select
Selection.Interior.ColorIndex = 15
Count = Count + 2
Loop Until IsEmpty("ACount")

End = 5
Do
Rows("End:End").Select
Selection.Interior.ColorIndex = xlNone
End = End + 2
Loop Until Count < End

Thanx A LOT!

Conditional formating can do what you want
have a lok at
http://www.techonthenet.com/excel/qu...nd_format2.php

The resaon your macro did not compile is that certain words are reserved for Excel & or VBA and should nevewr be used as a variable name

Count is reserved - Whist you can use it as a variable name you should not
End is reserved and can never be used as avariable name - This variable name is what is causing your problem

This is the code I would to do it

Dim l4Row As Long
Dim lLR As Long

'find last used row
lLR = Cells(Rows.Count, "a").End(xlUp).Row

'clear rows colouring
Rows("4:" & lLR).Interior.ColorIndex = xlNone

'apply cell colouring
For l4Row = 4 To lLR Step 2
   Rows(l4Row).Interior.ColorIndex = 15
Next l4Row