Primary and secondary Y axis should cut X axis at same value

Hi Andy,

Thanks. I incorporated the code in my sheet and can see option 4 ie input 4 to AlignY function works best for me. As I am not that conversant with VBA can I ask how this code can be modified so that whenever my spreadsheet is opened for the first time option 4 runs for a particular chart (I have several on a worksheet but just want the code to apply to one of them) automatically without having to manually run the macro?

Thanks

Thanks. I have managed to trim the code down to the below:

' The Main Event
    Sub AlignY()
Dim Y1min As Double
Dim Y1max As Double
Dim Y2min As Double
Dim Y2max As Double

With ActiveChart
With .Axes(2, 1)
Y1min = .MinimumScale
Y1max = .MaximumScale
.MinimumScaleIsAuto = False
.MaximumScaleIsAuto = False
End With
With .Axes(2, 2)
Y2min = .MinimumScale
Y2max = .MaximumScale
.MinimumScaleIsAuto = False
.MaximumScaleIsAuto = False
End With
With .Axes(2, 2)
.MinimumScale = Y1min * Y2max / Y1max 
End With
End With
    End Sub

The problem I am facing now is how to tell this code that always run for my particular chart. Reading a bit on the internet what I was trying is this code which should activate my chart called Chart5 (I got this name by clicking on the chart and then looking in the name box on top left) but when I run this code it gives all sorts of errors. Am I missing something here?

Sub activate1()
    ActiveSheet.ChartObjects("Chart5").activate
End Sub

Thanks