How to Clear Filters from a Range of Columns within Larger Table

Hi all,

I'm trying to create a macro that will clear the filter of a group of columns (3 through 10) within a table, without needing to have the sheet be active.

My current solution is rather clumsy, but it works.

Sub showPhlebs()'
' showPhlebs Macro
'


'

Worksheets("Data Calendar").ListObjects("tblDataCalendar").Range.AutoFilter field:=4
Worksheets("Data Calendar").ListObjects("tblDataCalendar").Range.AutoFilter field:=5
Worksheets("Data Calendar").ListObjects("tblDataCalendar").Range.AutoFilter field:=6
Worksheets("Data Calendar").ListObjects("tblDataCalendar").Range.AutoFilter field:=7
Worksheets("Data Calendar").ListObjects("tblDataCalendar").Range.AutoFilter field:=8
Worksheets("Data Calendar").ListObjects("tblDataCalendar").Range.AutoFilter field:=9
Worksheets("Data Calendar").ListObjects("tblDataCalendar").Range.AutoFilter field:=10
Worksheets("Data Calendar").ListObjects("tblDataCalendar").Range.AutoFilter field:=3, Criteria1:="1"

End Sub

I'd like to see if I can figure out a more elegant way to do this, since I have to redo the same thing with a minor change for the other 7 remaining columns.

Thanks in advance for your help.