kolommen laten verbergen middels een code?

[arjoderoon]

ik heb een bestand, waarin ik een hele hoop kolommen wil laten verbergen.
Ik dacht dit in excel te kunnen doen door een code uit een ander bestand te kopieren, alleen het lukt mij niet om dit nu voor elkaar te krijgen.

Wat ik zou willen is het volgende:
ik de kolommen D tot en met BM staan de week nummers van 201 genoemd.
ik heb in B2 een invoerveld gemaakt , met een knop erbij waar een code aan moet komen te hangen. Op basis van het weeknummer dat ingevuld wordt in B2 worden alle kolommen van D tot en met BM verborgen, met uitzondering van de kolom waarin het weeknummer staat dat is opgegeven in B2

(hoe) kan ik dit doen door middel van een macro code/vba?

 

[Jack Nouws]

Sub KolommenVerbergen()
    Columns("D:BM").Hidden = True
    Columns([B2].Value).Hidden = False
End Sub

Met vr gr

Jack