Skjul kolonner med værdi=0

En hurtig høkerløsning kunne være:

Sub Test()
    Dim c As Range
    
    For Each c In Worksheets("Sheet1").Range("AA102:DD102")
        If c.Value = 0 Then col.EntireColumn.Hidden = True
    Next
End Sub

em det er(meget) muligt det er mig der ikke gør det rigtig.
men jeg kan ikke få det til at virke.

Jeg kan det svære ikke udlevere regnearket, men jeg har en demo som viser eksemplet.
Kan jeg sende det til dig ? (hvordan gør man ? :)
+
jeg vil gerne have at når makro er kørt, står jeg i første synlige celle (Eks. AA1)
+
genvejstast til makro skal være Ctrl+g.

Ret til
    If c.Value = 0 Then c.Columns.EntireColumn.Hidden = True

måske stiller jeg det forkerte spørgsmål.
jeg har forsøgt at bruge jeres forslag, men der er kun fejl meldinger.
regnearket er gemt til aktive makroer, og alt skulle være i orden,

Jeg har forsøgt med lidt debug, men får det ikke til at virke ?

Virker teksten hos jer, med direkte copypaste ?

Prøv at sende din demo. @-adresse under min profil

Hej Alle
Jeg har fundet løsningen i et lignende spørgsmål i eksperten.dk
http://www.eksperten.dk/spm/916550
Jeg har rettet lidt i den så den fungere for mig.
Men hvorfor er det, at i hellere vil forslå modellen med Dim.
er nedenstående tung at køre ?
Upraktisk ?
Eller hvad er jeres prof holdning ?
Jeg vil jo ikke lave noget jeg skal vedligeholde, eller på anden måde er upraktisk, hvis jeg vil byggevidere :)

---------------------------------------------------
Sub SkjulProdukter()

Application.ScreenUpdating = False
ActiveSheet.Unprotect

For kol = 63 To 138
If Cells(103, kol) = "" Or Cells(103, kol) = 0 Then Cells(103, kol).EntireColumn.Hidden = True

ActiveSheet.Protect
Application.ScreenUpdating = True

Next
End Sub
------------------------------------------------------------
Sub VisProdukter()

Application.ScreenUpdating = False
ActiveSheet.Unprotect
        ActiveSheet.Columns("BG:EH").EntireColumn.Hidden = False
ActiveSheet.Protect
Application.ScreenUpdating = True

End Sub

det virker