Makro til at skjule kolonner

Du kan skrive denne makro

If Range("B1")= "Noget" then
Range("B").Entire.coumn.Hidden = true
end if

Det var et svar *S*
+
coumn = Column

Her er en løkke der løber løber alle kolonner igennem:

Sub Skjul()

ActiveCell.SpecialCells(xlLastCell).Select
antalKoloner = ActiveCell.Column

For n = 1 To antalKoloner
    If Cells(1, n) = "Noget" Then
        Columns(n).Hidden = True
    End If
Next n

End Sub

Hurra! Det sidste er intet mindre end perfekt. 1000 tak.