displaying column headings on the x-axis of line graph

[kkj1]

Hi Guys,
I am working with line charts and i am successively drawing line charts based on the number of rows. Each row contains one line chart and every time chart is drawn on new worksheet (e.g., if there are 5 rows then on single click 5 line charts will be drawn).
The problem that i am facing is, How to put column headings on the x-axis of each chart.
NOTE: Row heading is already appearing on the y-axis of each chart.
I want DP1, DP2, DP3,....on the x-axis of each line graph.
Here is my code:

Sub LineCharts()
Dim Ws As Worksheet
Dim NewWs As Worksheet
Dim cht As Chart
Dim LastRow As Long
Dim CurrRow As Long

Set Ws = ThisWorkbook.Worksheets("Sheet1")

LastRow = Ws.Range("A65536").End(xlUp).Row
For CurrRow = 2 To LastRow
Set NewWs = ThisWorkbook.Worksheets.Add
NewWs.Name = Ws.Range("A" & CurrRow).Value
Set cht = ThisWorkbook.Charts.Add
With cht
.ChartType = xlLine
.SeriesCollection.NewSeries

.SeriesCollection(1).Values = "=" & Ws.Name & "!R" & CurrRow & "C3:R" & CurrRow & "C8"
.SeriesCollection(1).Name = "=" & Ws.Name & "!R" & CurrRow & "C2"
.Location Where:=xlLocationAsObject, Name:=NewWs.Name
End With
Next CurrRow
End Sub

 

[AutoFilterQueen]

For testing your code, I used a data range of C2:H8 in Sheet1. Just to clarify, if what you are calling the row headers are in cells B2:B8, mine appeared in the chart title and the legend of each graph (not on the Y axis). The numbers on the Y axis were determined to optimize display of the values in the cells in the particular row, for example, C2:H2. The numbers on the X axis for me were simply 1 through 6, corresponding to columns 1 through 6 (in this case, C through H). I just wanted to say what I experienced and make sure we're on the same page for terminology. So, is all you want to do add DP on the beginning of the number 1 through 6? Or did you not see any X axis labels at all?

Without further ado... Here is the line of code I added within your with block to get it to work for me. Let me know if this helped or if I was totally confused about what you wanted!

    .Axes(xlCategory).TickLabels.NumberFormat = """DP""#"