Option Explicit
Sub Macro1()
Dim wsMySheet As Worksheet
Application.ScreenUpdating = False
For Each wsMySheet In ThisWorkbook.Worksheets
If wsMySheet.Name <> ActiveSheet.Name Then
wsMySheet.Visible = xlSheetVeryHidden
End If
Next wsMySheet
Application.ScreenUpdating = True
End Sub