Hej alle

PKT. 1

Jeg er begyndt at lege lidt med båndet. Indsætte faner, grupper og knapper.
Så jeg har forberedt en række makroer som disse:

Sub GoArk00(control As IRibbonControl)
Ark00.Activate
Range("A1").Select
End Sub
Sub GoArk01(control As IRibbonControl)
Ark01.Activate
Range("A1").Select
End Sub
Sub GoArk02(control As IRibbonControl)
Ark02.Activate
Range("A1").Select
End Sub
Sub GoArk03(control As IRibbonControl)
Ark03.Activate
Range("A1").Select
End Sub
Sub GoArk04(control As IRibbonControl)
Ark04.Activate
Range("A1").Select
End Sub
Sub GoArk05(control As IRibbonControl)
Ark05.Activate
Range("A1").Select
End Sub
Sub GoArk06(control As IRibbonControl)
Ark06.Activate
Range("A1").Select
End Sub

... og så videre i en uendelighed
Som I kan se, så er strukturen konsekvent

Kan det gøres simplere med en løkke eller lignende?

PKT. 2

Hvis nogle af de ark, der skal aktiveres er angivet som "VeryHidden" i VBA, så kan VBA tilsyneladende ikke finde ud af det og vælger et andet ark.
Udgangspunktet er, at hvis arket er angivet som "VeryHidden", så skal brugeren angive en adgangskode fx "tralalalala" eller hvad jeg nu vælger.

Er det muligt?