Hide sheets other than active sheet
Sub HideSheets() Dim Sh As Worksheet For Each Sh In ActiveWorkbook.Worksheets If Sh.Name <> ActiveSheet.Name Then Sh.Visible = xlSheetHidden End If Next Sh End Sub