Scoprire tutti i fogli di lavoro

Ecco come rendere visibili tutti i fogli di lavoro:

 
Sub UnhideAllWorksheets()
'Crea la variabile per contenere i fogli di lavoro
Dim ws As Worksheet

'Loop su ogni foglio di lavoro della cartella di lavoro attiva
For Each ws In ActiveWorkbook.Worksheets

     'Scopre ogni foglio di lavoro
     ws.Visible = xlSheetVisible

Next ws

End Sub