How to xlVeryHide Sheet on workBook Close

[HotNumbers]

How do I Very Hide a worksheet on close? I have VB that is run that unhide worksheets I want the ability to automatically very hide specific sheets if they are left visible?

 

[kpark91]

If you want to hide Sheet3

Sheet3.Visible = xlSheetVeryHidden

 

[HotNumbers]

i need the code to run on workbook close. I have other VB that hides and unhides sheets; however, i need to have the ability to hide sheets if a sheet is left unhidden during close.

 

[kpark91]

Try if this works

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim i As Long
    For i = 1 To Worksheets.Count
        If Worksheets(i).Visible = -1 Then
            Worksheets(i).Visible = 2
        End If
    Next i
End Sub

It hides all the sheets to very hidden if it is shown.

 

[HotNumbers]

I appreciate your help...
But it is not what i am looking for. For example I have sheet called Master Table. Should a user have this sheet visiable I want the ability to close the sheet upon workbook close. In other words I do not want the Master Table sheet to be visiable next time the file is opened.

 

[kpark91]

I think you can tweak the code a little to fit your needs.
I'm having a hard time understanding because first you wanted "sheets" to be very hidden upon close. and now you want a sheet named "Master Table" that needs to be hidden.

Anyways, this is my interpretation of your problem:
You want to set Master Table sheet to be very hidden upon closing.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    Worksheets("Master Table").Visible = xlSheetVeryHidden
    ThisWorkbook.Save
    Application.DisplayAlerts = True
End Sub

 

[HotNumbers]

Excellent... i think this is what i need.