Skjul faner med kode

Hej
Er det muligt at skjule og vise flere faner samtidig, med kode på. Så fanerne kun kan vises ved at taste en kode.
Jeg kan det til at virke på en fane, men hvordan får jeg det til at virke på flere?
Jeg har denne kode der kan skjule flere faner, men der er ingen kode på.
Sub LukFaner()
Application.ScreenUpdating = False
    Sheets(Array("Budget", "Jan", "Feb", "Mar", "Apr", "Maj", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dec")). Select
    Sheets("Budget").Activate
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Timer").Select
End Sub