Hi desk.doc
You cannot minimize worksheet tabs, but are able to minimize the window containing these tabs using the following.
Just create a code module and paste the following code samples into your VBA Editor.
VBA Code to minimize ActiveWindow containing Tabs
ActiveWindow.WindowState = xlMinimized
To hide all worksheets on the active worksheet, use the following.
For i = 1 To Sheets.Count
ActiveWorksheet.Sheets(i).Visible = xlHidden
Next i
To unhide hidden worksheets use the following
This code checks to see if the sheets are hidden, if so, it unhides them, otherwise, Hides them.
For i = 1 To Sheets.Count - 1
ActiveWorkbook.Sheets(i).Visible = IIf(ActiveWorkbook.Sheets(i).Visible = xlHidden, True, xlHidden)
Next i
Hope this helps you out.
Cheers, :-)
Bookmarks