Hide Filter Arrows of Multiple Tables in a Sheet

[SanjayGMusafir]

Dear Experts
Need your help

I have multiple tables on a sheet and many sheets in a file. Few sheets contain only one table but many columns. Every time I finish my work, I run a code that sets my whole file in order, I want them to be in.

In that file, I need to add code so that it "Hides Filter Arrows" of all tables on that sheet and then moves to next sheet.

Can you please help

Thanks

 

[mart37]

Dim s As Worksheet
Dim t As ListObject
For Each s In ActiveWorkbook.Sheets
    For Each t In s.ListObjects
        t.ShowAutoFilterDropDown = False
    Next
Next

 

[Fluff]

How about

Sub Sanjay()
   Dim Ws As Worksheet
   Dim Tbl As ListObject
   
   For Each Ws In Worksheets
      For Each Tbl In Ws.ListObjects
         Tbl.ShowAutoFilterDropDown = False
      Next Tbl
   Next Ws
End Sub

 

[SanjayGMusafir]

How about

Sub Sanjay()
   Dim Ws As Worksheet
   Dim Tbl As ListObject
  
   For Each Ws In Worksheets
      For Each Tbl In Ws.ListObjects
         Tbl.ShowAutoFilterDropDown = False
      Next Tbl
   Next Ws
End Sub

Thanks Fluff

That works like charms.

But I found another problem. One of my sheets doesn't have any table...

How to bye-Pass that?

 

[Fluff]

Shouldn't matter.

 

[SanjayGMusafir]

Shouldn't matter.

Hi Fluff

It was actually giving error when reached that particular sheet, so I added a small code to it...

Thanks a lot

Sub HideFilterArrowAll()
'
' HideFilterArrowAll Macro

' To Hide Filter Arrow on All Tables of All Sheets

   Dim Ws As Worksheet
   Dim Tbl As ListObject
   
   For Each Ws In Worksheets
   
        For Each Tbl In Ws.ListObjects
            On Error Resume Next
            ActiveSheet.ShowAllData
            Err.Clear
        Tbl.ShowAutoFilterDropDown = False
      Next Tbl
      
   Next Ws
   
End Sub

 

[SanjayGMusafir]

Dim s As Worksheet
Dim t As ListObject
For Each s In ActiveWorkbook.Sheets
    For Each t In s.ListObjects
        t.ShowAutoFilterDropDown = False
    Next
Next

Thanks

 

[Fluff]

Glad you sorted it & thanks for the feedback.