Remove filters on Open in VBA on a Teams version of Excel 365

[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 running 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

In Teams, if you click on the filter arrow it states "Showing All" but it doesn't show the list to filter. Again, this works perfectly on my desktop.

 

[Fluff]

Duplicate to: VBA Code to clear filters on Open in Excel for Teams

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread. If you do not receive a response, you can "bump" it by replying to it yourself, though we advise you to wait 24 hours before doing so, and not to bump a thread more than once a day.