How to have Cell values (strings) on an Chart X-Axis

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.

Thanks MrShorty. You just solved my problem. I'm new with VBA and just picked the first option with lines that I saw.
I'll take into account advise about embedding code with code tags.