Cacher is the code snippet organizer for pro developers

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