Private Sub Worksheet_Activate()Dim SH As WorksheetFor Each SH In WorksheetsIf SH.Name <> "Sheet1" Then SH.Visible = trueNextEnd Sub