Подсветить столбец с автофильтром

[VictorM]

останавливает работу Excel`a секунд на 25-30

Да, и это нужно осознавать, что условное форматирование - достаточно емкая вещь.
Так что , в любом случае решать Вам что применить в данном, конкретном случае.

[SAS888]

А как это осуществить?
Прошу подсказать

В модуль "Эта книга" вставьте код:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.AutoFilterMode Then Sh.AutoFilter.Range.AutoFilter
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.AutoFilterMode Then Sh.AutoFilter.Range.AutoFilter
End Sub

[velis83]

Сообщение от VictorM

Так Вам же был предложен пример.
Прочтите хотя бы что там написано.
Распространите условное форматирование не только на заголовок, а на весь столбец.
В примере изменил первые 4 столбца. Все подсвечивает))

Пример хороший, но вот что странно в моей таблице это УФ не работает, в примере вижу, а применить у себя не могу, может какие настройки нужно включить?

Всё разобрался.