Ark hvor man kan vælge hvilke ark der er skjulte

Lige en forespørgsel - hvis man også kan lave en 'gruppe' af ark ville det også være cool - altså så man på forsiden hvor man vælger viste ark har en form for hierarki, så man kan vælge arkene enkeltvis, men også kan klikke 'vis ark 1-4' osv...

TAK - giv lige en melding her hvis der er nogen der går i gang...

Her er et forslag:

Første Ark kaldet Monitor – altid synligt – intet indhold

I THISWORKBOOK:
===
Private Sub Workbook_Open()
    Load UserForm1
    UserForm1.Show
End Sub

===

OPRET EN USERFORM
med 1 listbox, 1 checkbox, 1 Commandbutton


Dim antalArk
Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        ListBox1.MultiSelect = fmMultiSelectExtended
        CommandButton1.Visible = True
    Else
        ListBox1.MultiSelect = fmMultiSelectSingle
        CommandButton1.Visible = False
    End If
End Sub

Private Sub CommandButton1_Click()
Dim f, aNavn
    For f = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(f) = True Then
            aNavn = ListBox1.List(f)
            ActiveWorkbook.Worksheets(aNavn).Visible = True
        End If
    Next f
End Sub

Private Sub ListBox1_Click()
Dim aNavn
    If CheckBox1.Value = False Then
        aNavn = ListBox1
       
        If ActiveWorkbook.Worksheets(aNavn).Visible = True Then
            ActiveWorkbook.Worksheets(aNavn).Visible = False
        Else
            ActiveWorkbook.Worksheets(aNavn).Visible = True
        End If
    End If
End Sub

Private Sub UserForm_activate()
Dim ws
    With ActiveWorkbook
        antalArk = .Worksheets.Count
    End With
       
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Monitor" Then
          ListBox1.AddItem ws.Name
        End If
    Next ws
   
    CommandButton1.Visible = False
End Sub

Der kunne desuden tilføjes følgende knapper:
VisAlle : Alle ark vises
AFSLUT: Skjuler alle ark - undtaget MONITOR
og lukker userformen: "unload userform1"

... håber det er gennemskueligt - ellers signal...

MVH

Tak - det bliver noget jeg skal se på over nogle dage...er ikke lige nået til user forms endnu, men VIL GERNE. Så skal lige finde en der kan tyde det for mig...

TAK

Hvis det kan hjælpe - så kan jeg sende hele filen til dig - send en mail til pb@skivehs.dk

Hej PB...lægger du ikke lige et svar her...tak !

Her er et svar...

MVH

Jeg siger tak...