Скрыть стрелки фильтра без разгруппировки

Question

У меня есть эта программа VBA для скрытия стрелок фильтра в Excel:

Sub Hide_Arrows()
'hides all arrows in heading row
'the Filter remains ON

Dim c As Range
Dim i As Integer
Dim rng As Range
Set rng = ActiveSheet.AutoFilter.Range.Rows(1)
i = 1
Application.ScreenUpdating = False

For Each c In rng.Cells
  c.AutoFilter Field:=i, _
      Visibledropdown:=False
  i = i + 1
Next

Application.ScreenUpdating = True

End Sub

Это работает отлично. Но в моем рабочем листе я сгруппировал несколько строк - некоторые из групп, которые я развернул, а некоторые я свернул, и каждый раз, когда я запускаю запрос, расширенные группы тоже будут сворачиваться. Есть ли способ остановить это?

Заранее спасибо и ура Альфред