min kode er:

 

Sub Lønbudget()
'
' Lønbudget Makro
' Lønbudget
'

'
    Columns("N:AK").Select
    Selection.EntireColumn.Hidden = False
    Columns("AK:AM").Select
    Range("AM1").Activate
    Selection.EntireColumn.Hidden = False
    Range("AK:AK,AI:AI,AG:AG,AE:AE,AC:AC,AA:AA,Y:Y,W:W,U:U,S:S,Q1,Q:Q,O:O").Select
    Range("O1").Activate
    Selection.EntireColumn.Hidden = True
End Sub

 

Hvorfor låser du cellerne før du kører makroen, makroen laver ikke andet en det du har bedt den om,

Hvorfor så ikke låse cellerne efter makroen er kørt, læg det eventuelt ind i makroen, Hvis du gør det skal du også starte makroen med at fjerne låsen.