group excel sheets within workbook

[melbournedude1]

Hi,
I was wondering whether it is possible to group excel worksheets under an
individual tab within the one workbook.
A example of what I would like to do is to have a set of tabs across the
bottom of the workbook to the right (as the sheet tabs appear to the left)
labelled with each month of the year. When I select a month tab, it will then
open a group of worksheets each day of that month.
I am sure that I have utilized this function in the past, but cannot workout
or remember how to create it.
Any help with this would be greatly appreciated.

[Jim Cone]

m,
It is possible, using code, to hide and show sheets similar to what you describe.
However, that would require a minimum of 377 sheets in the workbook.
Chances are response would be slow and workbook size would be large.
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware

"melbournedude1" <melbour...@discussions.microsoft.com>
wrote in message

[Otto Moehrbach]

You cannot "group" sheets in that manner but you can get the same effect
another way. Say you have a sheet tab "Four" at the bottom of the screen.
At the same time you have a set of hidden sheets, say "One", "Two", and
"Three". Because those sheets are hidden, their tabs will not be visible.
You want those 3 sheets to become visible when you click on tab "Four".
You would use a Worksheet_Activate macro in the "Four" sheet module to
make the 3 sheets visible. That macro would look like:
Private Sub Worksheet_Activate()
Dim ws As Worksheet
For Each ws In Sheets(Array("One", "Two", "Three"))
ws.Visible = True
Next ws
End Sub

You could re-hide the 3 sheets by picking up another event or you can
trigger a normal macro by keystrokes or a button or you can hide them
manually.
Note that the above macro must be placed in the sheet module of sheet
"Four". To access that module, right-click on the sheet "Four" tab, select
View Code, and paste the macro into that module. Click on the "X" in the
top right corner of the module to return to the worksheet. HTH Otto

"melbournedude1" <melbour...@discussions.microsoft.com> wrote in message

news:0DCA3D10-309F-4C7A...@microsoft.com...

[melbournedude1]

Thanks Otto,
I have completed what you have told me to do, although this has not done
anything as you have explained.

Cheers

[Otto Moehrbach]

Where did you place the macro? Where you place it is critical to its
operation. What changes did you make to the macro to fit with your data?
Post back and include the macro as you now have it. I tried it before I
sent it and it works for me. HTH Otto

"melbournedude1" <melbour...@discussions.microsoft.com> wrote in message

news:1EB473E1-F84D-4D43...@microsoft.com...