Údajně by to mělo fungovat pomocí tohoto kódu

Private Sub Worksheet_Calculate()
    Dim tbl As ListObject
    Dim col As ListColumn
    Set tbl = Me.ListObjects("example")
    For Each col In tbl.ListColumns
        col.Range.EntireColumn.Hidden = (Application.Subtotal(103, col.DataBodyRange) = 0)
    Next col
End Sub

Jenže, člověk na podpoře microsoft mně nasdílel soubor s tímto kódem, kde to funguje. Tam jsem napsal naprosto totožný soubor se stejným, kde to nefunguje. Očividně mám tam něco špatně, ale není mně jasné co.

Oba soubory jsou v příloze.

Prosím o radu,

Děkuji