Untitled

mail@pastecode.io avatar
unknown
plain_text
9 months ago
621 B
2
Indexable
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