VBA werkt niet goed

[Senso]

Het zijn kolommen in tabelvorm
met
kolom1
daaronder
Naam
zo elke kolom
Wat is niet goed aan de code?

Sub HideColumnsWithOnlyHeaders()
    Dim col As Range
    Application.ScreenUpdating = False
    
    For Each col In ActiveSheet.UsedRange.Columns
        ' If CountA is 1 or 0, it means it only has a header or nothing at all
        If Application.WorksheetFunction.CountA(col) <= 1 Then
            col.EntireColumn.Hidden = True
        End If
    Next col
    
    Application.ScreenUpdating = True
End Sub

 

[Enigmasmurf]

Wat niet goed is aan de code? Kort antwoord: niets.
Het werkt namelijk, zowel met een échte als met een imitatietabel.
Misschien ziet jouw tabel er enigszins anders uit dan uit je vraag af te leiden valt.
Voorbeeldbestandje toevoegen misschien?

 

[emields]

Mod edit: Als dit je reactie is op een vraag, laat dat dan voortaan achterwege.

 

[snb]

Of zo:

Sub M_snb()
   Application.ScreenUpdating = false

  For Each it In UsedRange.Columns
    it.hidden =application.counta(it)<2
  Next
End Sub

 

[Senso]

Zal het opnieuw proberen. Oorspronkelijk een CSV van Google contacten. Ga later wel eens verder. Het bevat allemaal adressen. Bedankt.