ActiveChart.PlotArea.Select
ActiveChart.ChartArea.Select
With ActiveChart
    .HasAxis(xlCategory, xlPrimary) = False
    .HasAxis(xlValue, xlPrimary) = False
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic