Chart and axis title problem

[Natit]

Hello There

I have a problem with the X and Y titles in my chart.
This is my macro:

Range("AF1:AH11").Select
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range("AF1:AH11")
ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
Selection.Format.TextFrame2.TextRange.Characters.Text = "Gender"
ActiveChart.Axes(xlCategory).AxisTitle.Select
ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "Total"

I need the "Total" to be the title for the Y title but it writes over the X title.

What am I doing wrong??

TIA
Nati

 

[pgc01]

Hi Nati

Try:

...
ActiveChart.Axes(xlValue, xlPrimary).HasTitle = True
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Total"
...

 

[Natit]

Tried.
Didn't work