Selecting the chart sheet and then doing

ActiveChart.Select
ActiveWindow.Zoom = True

worked for me.


--
Regards,
Tom Ogilvy

"David" wrote:

Hello

to fix my problem I am having opening my workbok on other people's computers
I am using the code:

Private Sub Worksheet_Activate()

Range("A1:R1").Select
ActiveWindow.Zoom = True
Range("A1").Select

End Sub

This does not work for Chart sheets because I cannot figure out the object
that should go with .Zoom on the chart sheet.

Can anyone help or do you have any ideas about aooming so the whole chart is
visible on any resolution.

David