hidden sheets code

[JasonLeVan]

is there a vba code to hide all sheets but the first one, but still access the hidden sheets b/c i have info on them with links to them

 

[bjurney]

This will hide each sheet:

Sub hide()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each sh In ActiveWorkbook.Worksheets
If sh.Name <> "Sheet1" Then
sh.Visible = xlSheetHidden
End If
Next sh
End Sub

You will need to write a code though to unhide the sheets when a target cell is clicked from the hyperlink though.