have created a simple embedded chart but after trying for hours I see myself unable to set the X-Axis values to a set of cell values (I just get numbers starting from 1).

Dim cht1 As ChartObject
Dim rng1 As Range
Worksheets(2).Activate



Set rng1 = ActiveSheet.Range("D2:E13")
Range("D15").Select
Set cht1 = ActiveSheet.ChartObjects.Add( _
Left:=ActiveCell.Left, _
Width:=274, _
Top:=ActiveCell.Top, _
Height:=230)
cht1.Chart.SetSourceData Source:=rng1
cht1.Chart.ChartType = xlXYScatterLines
cht1.Chart.Legend.Delete



So, this piece of code above is displaying a chart where the Y values are taken from the E column (numbers) and the X values should be taken from the D column (text), but instead is just showing numbers starting from 1.

Any ideas on how to do that.