Sub ViewSlectiveSheets()
mysheetletter = UCase(InputBox("Enter 1st letter of sheets"))
For Each ws In Worksheets
If UCase(Left(ws.Name, 1)) = mysheetletter Then
ws.Visible = True
Else
ws.Visible = False
End If
Next ws
End Sub

--
Don Guillett
SalesAid Software

"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
You can right-click on the navigation arrows at bottom left to get a
pop-up
listing 15 sheets plus"more sheets".

Or use VBA code to give you a list of sheets to pick from.


Gord

On Thu, 19 Oct 2006 10:25:02 -0700, CSI
wrote:

I was looking for a way to reduce the number of tabs along the bottom,
since
many can be related to each other, and still have all work books visable

\_All a_/ \_all_b_/
\_a1_/\_a2_/\_a3_/\_a4_/ \_b1_/\_b2_/\_b3_/\_b4_/

"Gord Dibben" wrote:

If you mean have one Tab that contains more than one worksheet.

Cannot be done.

If you explain the purpose of doing this, perhaps there is a workaround
method.


Gord Dibben MS Excel MVP

On Thu, 19 Oct 2006 07:03:03 -0700, CSI
wrote:

i wish to have tabs that represent several worksheets, is there a way
to do
this?

\_Group Tab_________________/
\subtab1/\subtab2/\subtab3/



Gord Dibben MS Excel MVP