-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 80,000 Newsgroups - 16 Different Servers! =-----
Since you already had interior colors, then you probably
already have borders because interior color wipes out gridlines.
For help in picking a different color see my
http://www.geocities.com/davemcritchie/excel/colors.htm
Here is the a solution posted by Dana
I think you will want to include this near the beginning to
clear out existing color.
Cells.Interior.ColorIndex = xlNone
Use the following macro to reset color stripes after sorting.
From: Dana De (da...@msn.com)
Subject: Re: Coloring Alternate Rows in Excel
Newsgroups: microsoft.public.excel.misc
View: Complete Thread (3 articles) | Original Format
Date: 1998/01/17
Here is something I use to shade every Even Row.
If you do not like any of the 56 colors available for use, then go to
<Tools>
<Options> <Color> and modify one of the colors. Then change the macro to
refer to this (the ColorIndex number). The best way to get the index number
is to just record a short macro and select the color. Then look at the
macro to
get the color index. Modify the ColorIndex number as appropriate.
(Modifying 1 of the colors here affects the whole workbook I believe.)
Sub Alternate_Row_Shading()
' Shades alternate rows with data
Dim R As Long 'Row Ref
Dim LastRow As Long
Dim Tbl
ActiveSheet.UsedRange
Set Tbl = Range(Cells(1, 1),
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))
LastRow = Tbl.Rows.Count
' Shade even rows
For R = 2 To LastRow Step 2
With Tbl.Rows(R).Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
' Do not shade odd row above
Tbl.Rows(R - 1).Interior.ColorIndex = xlNone
Next
' Need to Check last row
If LastRow Mod 2 Then Tbl.Rows(LastRow).Interior.ColorIndex = xlNone
[A1].Select
End Sub
<scan...@email.com> wrote in message news:3b8805eb...@news.marshallnet.com...