Either of these placed in Thisworkbook module.

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
If ws.Name < "keep visible" Then
ws.Visible = xlSheetVeryHidden
End If
Next ws
End Sub

Or in beforeclose

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
If ws.Name < "keep visible" Then
ws.Visible = xlSheetVeryHidden
End If
Next ws
End Sub


Gord Dibben MS Excel MVP


On Thu, 6 Nov 2008 13:35:02 -0800, Brenda
wrote:

I am working in Excel 2003, I have hidden my tabs which are located at the
bottom of my worksheet. I have buttons located on each tab and once they
click on this button it will bring up the tab that is hidden and they can
click on another tab and it will hide previous tab and bring up another tab.
My question is i want the tabs to remain hidden when i open up the worksheet
at the moment i have to rehind them to make my buttons work. I know that i
need to keep one tab open. What formula can i use and how would i apply it to
the whole workbook but the one tab that will remain open?

I have asked this question before but now i had to totally start all over.