Create A chart for each row of data VBA

[JBBunno]

Hello,
I am on a slow long learning curve with VBA, I struggle with a few aspects but I persevere.

I have some rows data (Could be 10 rows could be 12 and so on)
I can create a chart for one row of data, but I do not want to do this for each row the long way.
I would appreciate some guidance on putting my code into a Loop? so the code will just create as many charts as there are rows. Here is my code for the first row of data used for a chart

Sub TryChrt()
Dim chrt As Chart
Set chrt = Charts.Add
Set chrt = chrt.Location(where:=xlLocationAsObject, Name:="Charts")

With chrt
.ChartType = xlColumnClustered
.SeriesCollection.NewSeries
.FullSeriesCollection(1).Values = "=Loading!$B$2:$AX$2"
.FullSeriesCollection(1).Name = "=Loading!$A$2"
.FullSeriesCollection(1).XValues = "=Loading!$B$1:$AZ$1"
.FullSeriesCollection(1).Select
.ChartGroups(1).GapWidth = 10
.HasLegend = False
End With

End Sub

Appreciate any assistance in this query
Thanks
JB

[WideBoyDixon]

Hey. This might work for you. Note that it also tries to re-arrange the charts so they don't overlap:

Please Login or Register  to view this content.

WBD

[JBBunno]

And thats a big WOW! from me.... Thank you very much.
It runs great.
Now i just have to take time and understand the code

[WideBoyDixon]

No problem. Perhaps you could pass on a message to Steve Smith to throw his wicket away please

WBD