Untitled
Sub sbShowSheets() On Error Resume Next With ThisWorkbook .Sheets("Sheet1").Visible = xlSheetVisible .Sheets("Sheet2").Visible = xlSheetHidden .Sheets("shtSplash").Visible = xlSheetVeryHidden End With ThisWorkbook.Saved = True On Error GoTo 0 End Sub Sub sbHideSheets() On Error Resume Next With ThisWorkbook .Sheets("shtSplash").Visible = xlSheetVisible .Sheets("Sheet1").Visible = xlSheetVeryHidden .Sheets("Sheet2").Visible = xlSheetVeryHidden End With On Error GoTo 0 End Sub
Leave a Comment