This will update the chart, except for the MajorUnits as these are currently not calculated
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A4:B14"), Target) Is Nothing Then
With Sheets("Chart")
With .Axes(xlCategory)
.MaximumScale = Range("$F$22").Value
.MinimumScale = Range("$F$21").Value
' .MajorUnit = Range("$E$4").Value
End With
With .Axes(xlValue)
.MaximumScale = Range("$D$24").Value
.MinimumScale = Range("$D$23").Value
' .MajorUnit = Range("$E$24").Value
End With
End With
End If
End Sub
Bookmarks