[COLOR="DarkSlateGray"]Private Sub Chart_Activate()
Macro1
End Sub
Private Sub Macro1()
With Me.Axes(xlCategory)
.MinimumScale = Sheets("[COLOR="Red"][B]2[/B][/COLOR]").Range("[COLOR="Red"][B]G9[/B][/COLOR]").Value
.MaximumScale = Sheets("[COLOR="Red"][B]2[/B][/COLOR]").Range("[COLOR="Red"][B]G8[/B][/COLOR]").Value
End With
End Sub[/COLOR]