Tekst på kategoriakse

Jeg har følgende kode:
Dim Var1, Var2, Var3
    Dim ws As Worksheet
    Set ws = ActiveSheet

   
    With ws
        Var1 = .Range("ac1")
        Var2 = .Range("ac2")
        Var3 = .Range("g7")
        .ChartObjects(1).Chart.SeriesCollection(1).Formula = _
            "=SERIES(,{1,2,3},{" & Var1 & "," & Var2 & "," & Var3 & "},1)"
    End With

Mit spørgsmål er: hvordan ændrer jeg værdierne på x- aksen således at der ikke blot står 1 under 1. søjle, 2 under 2. søjle og 3 under 3. søjle?
Jeg vil gerne have tallene udskiftet med tekst!