I pasted your code:

Private Sub Chart_Activate()
Dim mycell As Range
Set mycell = Sheets("Jan").Range("$Z$9")
If mycell.Value = "" Then Exit Sub
On Error GoTo CleanUp
Application.EnableEvents = False
ActiveSheet.Name = mycell.Value
CleanUp:
Application.EnableEvents = True
End Sub

into each Chart sheet code and changed the Range cell ref.

Set mycell = Sheets("Jan").Range("$Z$9")
Set mycell = Sheets("Jan").Range("$Z$10")
Set mycell = Sheets("Jan").Range("$Z$11")
Set mycell = Sheets("Jan").Range("$Z$12")
etc.

Thanks
Bg

"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
On Sun, 01 May 2005 17:30:48 GMT, "Bob G" wrote:

You've inspired me to learn more of VBA.

Me too<g

Just curious...............

Which event did you go with? Worksheet_Change in Jan sheet or
Chart_Activate
in the chart sheet?


Gord