VBA Code to clear filters on Open in Excel for Teams

[wdgor]

The code below works perfectly in Excel 365 on my desktop. However, when I upload the sheet to Teams (and open it in the app, i.e. the full version of Excel and not the Teams version), it dutifully removes the filters, but any new filters cannot be applied. The same is NOT true in the 365 version natively on my desktop. Is this because Autosave is turned on in Teams? I truly have no idea of why it works on my desktop and the exact same version does not work the same in Teams. Any ideas?

Private Sub Workbook_Open()
Dim wks As Worksheet
For Each wks In Worksheets
If wks.FilterMode = True Then
wks.ShowAllData
End If
Next wks
End Sub

 

[wdgor]

A quick update - if you click on the filter arrow it states "Showing All" but it doesn't show the list.

 

[wdgor]

I may have messed up by providing additional information as an "answer". I would still appreciate an expert review to see why the remove filters on Open doesn't work in Teams. Thanks for any help.