vis / skjul flere (alle) ark i en projektmappe

Når du skjuler ark, kan du markere flere ark samtidigt ved at bruge Ctrl eller Shift når du klikker på fanerne.

Du kan imidlertid kun få vist 1 ark ad gangen.

Derudover skal der makroer til, som du selv er inde på.

Denne makro gør alle ark synlige:

Sub VisAlleArk()

    Dim pArk As Worksheet
   
    For Each pArk In ActiveWorkbook.Worksheets
        pArk.Visible = True
    Next wsSheet

End Sub

Der er en lille fejl:
Sub VisAlleArk()
    Dim pArk As Worksheet
    For Each pArk In ActiveWorkbook.Worksheets
        pArk.Visible = True
    Next pArk
End Sub

TAK

øhhh, hvorfor fik jeg nu selv point ?

Fordi du lagde et svar selv, og accepterede det.
Der er mange brugere der der laver den fejl. Hvis du ville give mig point, skulle du have bedt mig om et svar.

Men som du kan se har jeg rigelig point, så det betyder intet.
Godt du kunne bruge det.....

Til en anden god gang: http://www.eksperten.dk/faq#faq-3

jamen jeg takker endnu engang