Hi Try this
This will do the whole work sheet you might want to cut it down a little![]()
Sub YellowRows() Dim i As long For i = 14 To Rows.Count Step 14 Rows(i).Interior.ColorIndex = 6 Next End Sub
Hi Try this
This will do the whole work sheet you might want to cut it down a little![]()
Sub YellowRows() Dim i As long For i = 14 To Rows.Count Step 14 Rows(i).Interior.ColorIndex = 6 Next End Sub
Last edited by Marcol; 03-10-2010 at 09:55 AM. Reason: changed integer to long
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks