VBA code om meerdere tabbladen tegelijk zichtbaar te maken.

[adile]

Goedenavond,


Ik wil graag in een bestand waarvan tabbladen (Week 1 t/m Week 53) onzichtbaar zijn, deze met een macro in 1 keer weer zichtbaar maken.
heeft iemand hier een handigheidje voor? 1 voor 1 zichtbaar maken duur zo lang.

Gr Adile

 

[pasan]

Plaats deze code in een module en plaats een knop op je blad waar je deze code naar laat verwijzen.

Sub zichtbaar()
 For i = 1 To ThisWorkbook.Worksheets.Count
  Worksheets(i).Visible = -1
 Next
End Sub

 

[adile]

Goedemorgen Pasan,

Bedankt voor je hulp, de code werkt!:thumb:

ben er blije mee.

Groet Adile