So for so good....
Now what about these?
xlCategory?
xlPrimary?
xlValue?

Code:
O.Activechart.Axes(xlCategory, xlPrimary).HasTitle = True
        O.Activechart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Date"
        O.Activechart.Axes(xlValue, xlPrimary).HasTitle = True
        O.Activechart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Defects"