Debra...this works great for me as long as my worksheet is unprotected. When
I protect my worksheet and then attempt to filter a column I get a VB
run-time error 1004, "unable to set the colorindex property of the Interior
class."
Can you help?
--
TommyB


"Debra Dalgleish" wrote:

The code should be pasted onto the worksheet module for the sheet that
contains the autofilter. Right-click on the sheet tab, choose View Code,
and paste the code where the cursor is flashing.

rontl wrote:
I downloaded the file, and it works great inside the sample. But when I take
a filtered file i already have, and create a macro module in it, and paste
your code into it, the coloring only works if I have your workbook open. It
works very nicely, but it only works when your workbook is open. I have
AutoFilter turned on, and I inserted "=TODAY()" into a cell to force
recalculation, but still no luck.

Help!
Thanks,
Ron


"Debra Dalgleish" wrote:


There's no way to change the colour of the filter arrows.

If you can use programming, there's a sample file here in which the
heading cell is coloured if a filter is applied to that field:

http://www.contextures.com/excelfiles.html

Under Filters, look for 'Colour Filter Headings'

Or, without programming, you can colour all the headings if any column
in the table has been filtered. For example:

Select all the headings
Choose FormatConditional Formatting
From the first dropdown, choose Formula Is
In the formula box, type:
=COUNTA($A:$A)<SUBTOTAL(3,$A:$A)
Click the Format button
On the Patterns tab, select a colour
Click OK, click OK

sandro wrote:

I use filters in excel extensively, occasionally I do not realise I have a
filter on a worksheet as the dark blue filter arrows are not destinctive
enough to the black arrows when the filters are off. How do I change the
arrows to a brighter colour e.g red


--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html





--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html