Nascondere tutti i fogli di lavoro eccetto il foglio attivo

Per nascondere tutti i fogli di lavoro ad eccezione del foglio attivo:

 
Sub HideAllWorksheetsExceptActive()
'Crea una variabile per gestire i fogli di lavoro
Dim ws As Worksheet

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

     'Se il foglio nel loop non è il foglio attivo
     If ActiveSheet.Name <> ws.Name Then

          'Rende nascosto ogni foglio
          ws.Visible = xlSheetHidden

     End If

Next ws

End Sub