I have a set of data where there are about 14-15 months along the first row, and then in the first column there are about 150 rows of items. There are then values for each item and each month (sometimes blank or zero). It's just a giant pivot table. I would like to make a separate chart for each item that goes across all of the months all on one new page/sheet. I'm fairly new to VBA, so this is what I have so far, but I really need some help haha.
Sub Add_Charts()
Dim i As Integer
Worksheets("All").Activate
Worksheets("Charts").Activate
For i = 0 To Worksheets("All").Range(Worksheets("All").Range("A5"), Worksheets("All").Range("A5").End(xlDown)).Count
Worksheets("Charts").Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SeriesCollection.Values = Worksheets("All").Range(Worksheets("All").Cells(5 + i, 1), Cells(5 + i, 7))
Next i
End Sub
I appreciate any help!
Bookmarks