RAJAQ
12/2/2016 - 11:55 AM

Hide sheets other than active sheet

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