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