Turn off Data label Wrap vba

[Av8tordude]

I'm getting an error trying prevent text wrapping. Can someone help me resolve this issue.. thx

.SeriesCollection(1).DataLabels.WordWrap = msoFalse

    With MyChart
        .SetSourceData Range("AA1:AB1")
        .SeriesCollection(1).Points(1).Format.Fill.ForeColor.RGB = RGB(49, 99, 148)
        .SeriesCollection(1).Points(2).Format.Fill.ForeColor.RGB = RGB(156, 49, 49)
        .ChartArea.Format.Fill.ForeColor.RGB = RGB(238, 238, 238)
        .ChartArea.Font.Color = RGB(255, 255, 255)
        .SetElement (msoElementDataLabelCenter)
        .ChartArea.Height = 95
        .ChartArea.Width = 100
        .ChartStyle = 26
        .Legend.Delete
        .SeriesCollection(1).DataLabels.WordWrap = msoFalse
    End With

 

[Av8tordude]

bump