Lege kolom in draaitabel verbergen met VBA

[jempi10]

Hallo

Hoe verberg ik in een draaitabel een (of meerdere) lege kolommen?
Zie het niet hoe ik de formule moet opstellen; zit een beetje te klungelen met dit :

Sub Verbergen()

Dim Sum As Integer
    
    Range("B1").Select
       If (Sum("B:B")) = 0 Then
    Columns("B:B").Select
    Selection.EntireColumn.Hidden = True
    Range("C1").Select
        If Sum("C:C") = 0 Then
    Columns("C:C").Select
    End If

End Sub

Ik krijg het bericht : Compileerfout - Er wordt een matrix verwacht.
Hopelijk is de uitleg op tabblad 'Opvraging' duidelijk.
Alvast bedankt voor de hulp.

Bekijk bijlage Lege kolom draaitabel.xlsm

 

[edmoor]

Sub Verbergen()
    Dim i As Integer
    For i = 2 To 3
        If WorksheetFunction.Sum(Columns(i)) = 0 Then Columns(i).EntireColumn.Hidden = True
    Next i
End Sub

 

[jempi10]

Edmoor,

Hartelijk bedankt, het werkt perfect.
Kende deze functie niet. Ga er verder mee experimenteren.
Ik zet het topic op opgelost.
Nog een prettig weekend

 

[edmoor]

Hetzelfde gewenst