Skjul resten af kolonnerne i et Excel-ark

Sub Skjul_Undtaget_B2_til_P34()

Application.ScreenUpdating = False
'Skjul række 1
    Rows("1:1").EntireRow.Hidden = True
'Skjul kolonne A
    Columns("A:A").EntireColumn.Hidden = True
   
'Marker kolonne Q
    Columns("Q:Q").Select
'Udvid markering til højre og skjul
    Range(Selection, Selection.End(xlToRight)).EntireColumn.Hidden = True
   
'Marker række 35
    Rows("35:35").Select
'Udvid markering ned og skjul
    Range(Selection, Selection.End(xlDown)).EntireRow.Hidden = True
   
'Skjul Overskrifter (Kolonne bogstaver og række nr.)
    ActiveWindow.DisplayHeadings = False
   
'Vælg celle B2
    Range("B2").Select
   
Application.ScreenUpdating = True
   
End Sub

Sub Vis()
'Vis Overskrifter (Kolonne bogstaver og række nr.)
    ActiveWindow.DisplayHeadings = True
'Vis alle rækker
    Cells.EntireRow.Hidden = False
'Vis alle kolonner
    Cells.EntireColumn.Hidden = False
'Vælg celle A1
    Range("A1").Select
End Sub