Opmaak getallen X-as van XY grafiek

[mcs51mc]

Hallo,

Ik wil de getallen van de X as van een XY grafiek een beetje opsmukken
Met de recorder maar een beetje code opgenomen, zie hieronder

    ActiveChart.Axes(xlCategory).Select
    With Selection.Format.TextFrame2.TextRange.Font
        .NameComplexScript = "Arial Black"
        .NameFarEast = "Arial Black"
        .Name = "Arial Black"
    End With
    Selection.Format.TextFrame2.TextRange.Font.Size = 11
    Selection.Format.TextFrame2.TextRange.Font.Bold = msoTrue
    With Selection.Format.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent3
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
        .Solid
    End With

Echter wanneer ik de code, zonder één letterke te veranderen, laat lopen dan komt volgende foutmelding op
Run-Time error '-2147467259 (80004005)'
Method 'TextFrame2' of object 'ChartFormat' failed
op de eerste With Selection.Format....... lijn :evil:

Iemand een idee hoe ik de getallen dan de X-as wel kan opmaken?
Merk op dat ik wel degelijk wens gebruik te maken van

.ForeColor.ObjectThemeColor = msoThemeColorAccent3

Ik gebruik Excel 2010.
Alvast bedankt!