macro to shade alternating rows

I am trying to create a macro that will shade different rows of data. The spreadsheet contains ~1000 rows of data and has 10 columns.

Row 1 contains columns headers.

The rows below in column A contain account numbers, for example, are as follows:

Row 2: 5555-5555
Row 3: 5555-5555
Row 4: 5555-5555
Row 5: 5555-5555
Row 6: 3456-0000
Row 7: 3456-0000
Row 8: 3456-0000
Row 9: 3456-0000
Row 10: 9967-1111
Row 11: 9967-1111
Row 12: 9967-1111
Row 13: 9967-1111

What I am trying to do is to change the shading of the rows every time the account number changes.

So in this example the Header row is gray. Rows A2:J2 - A5:J5 have no shading; rows A6:J6 - A9:J9 are gray; rows A10:J10 - A13:J13 have no shading; etc.

The end result is I would like to turn the shading feature "on" and turn the shading feature "off" (meaning no shading for all cells with the exception of header row which should always be gray).

Hi Try this:-
Similar numbers in column "A"

Please Login or Register  to view this content.

Regards Mick

Mick - thanks for the code. It is working fine except is there a way within the code to tell it to shade columns A through J only (10 columns) instead of the whole row?

Thanks again for your help.

Hi, This should do it !

Please Login or Register  to view this content.

Regards Mick

Mick, thank you so much. Perfect solution to my issue.