Dynamic Axes for Chart(s)

[N4nninga]

Hi,

On Worksheet 1 I have 2 different graphs for which I would like the minimum and maximum scale to be dynamic. This goes for both the X and the Y axis. The minimum and maximum scale that I would like to use are calculated in cells on Worksheet 2.

Could anyone help me out on this one? Thanks in advance

 

[Worf]

Welcome to the Board

' Sheet2 module
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ch1 As Chart, ch2 As Chart
If Not Intersect(Target, Me.[b10:e11]) Is Nothing Then
    Set ch1 = Sheets("sheet1").ChartObjects(1).Chart
    Set ch2 = Sheets("sheet1").ChartObjects(2).Chart
    
    ch1.Axes(xlCategory).MinimumScale = Me.[b10]
    ch1.Axes(xlCategory).MaximumScale = Me.[c10]
    ch1.Axes(xlValue).MinimumScale = Me.[d10]
    ch1.Axes(xlValue).MaximumScale = Me.[e10]
        
    ch2.Axes(1).MinimumScale = Me.[b11]
    ch2.Axes(1).MaximumScale = Me.[c11]
    ch2.Axes(2).MinimumScale = Me.[d11]
    ch2.Axes(2).MaximumScale = Me.[e11]
        
End If
End Sub