VBA to Close all worksheets But Exclude one

[MarkCBB]

HI there,

I have a similar code that closes all worksheets that begin with "C_" (from MrExcel board).

However I am looking for a more dynamic code that will close all worksheets excluding one, this way I dont' need to keep updating the below code.
This is just a Sample the full code has 34 worksheets that need to be close, and I add new ones each day.

Is there some code that closes all worksheets excluding sheets("NAVIGATION").select

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Sheets("BL_INPUT").Visible = False
    Sheets("BLO_INPUT").Visible = False
    Sheets("VC_INPUT").Visible = False
    Sheets("BLF_INPUT").Visible = False
    Sheets("BLCC_INPUT").Visible = False
    Sheets("TCC_INPUT").Visible = False
    Sheets("OUTLET_INPUT").Visible = False
End Sub

 

[VoG]

Try

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> "NAVIGATION" Then ws.Visible = xlSheetHidden
Next ws
End Sub

 

[MarkCBB]

Thanks VoG, thanks going to save me alot of time going forward. thank you