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 

Tags: , , , ,

Ti è stato utile?