Format primary and secondary axes with VBA
My code is:


Application.ActiveChart.Parent.Name = "graph"

'ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)

ActiveSheet.ChartObjects("GRAPH").Activate

ActiveChart.Axes(xlValue, xlPrimary).Select
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "TITLE"
ActiveChart.Axes(xlValue, xlPrimary).MinimumScale = 0
ActiveChart.Axes(xlValue, xlPrimary).MaximumScale = 100

ActiveChart.Axes(xlValue, xlSecondary).Select
ActiveChart.Axes(xlValue, xlSecondary).AxisTitle.Text = "TITLE 2"
ActiveChart.Axes(xlValue, xlSecondary).MinimumScale = 0
ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = 12


And it's useless and doesn't work!
Anyone have any ideas?