Dynamic multiple chart with VBA - excel

Question

I try to create dynamic chart with VBA , for example I have 5 students I need to create 5 chart
for each students .
Sub Macro4()
Rows("2:2").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range("Sheet1!$2:$2")
Rows("3:3").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range("Sheet1!$3:$3")
Rows("4:4").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range("Sheet1!$4:$4")
Range("D12").Select
ActiveWorkbook.Save
End Sub
I create this using Macro only for test but I try do that as dynamically because if I have more then 100 students it will be difficult , etc..
I hope you guys help me
Thanks

Answer 1

Try the next way, please. No need of any selection. Selection is useless, it only consumes Excel resources:
Sub AddCharts()
Dim sh As Worksheet, ch As Shape, chartNo As Long
Dim prevWith As Long, i As Long
Set sh = ActiveSheet 'the sheet where the charts to be created
'chartNo = 5
chartNo = = Worksheets("Sheet1").Range("A" & rows.count).End(xlUp).row - 1
For i = 1 To chartNo
Set ch = sh.Shapes.AddChart
ch.Chart.ChartType = xlColumnClustered
ch.Chart.SetSourceData Source:=Range("Sheet1!$" & i + 1 & ":$" & i + 1)
ch.Chart.Parent.left = sh.Range("A1").left + prevWith 'here the first left chart position to be set
prevWith = ch.Chart.Parent.width 'the chart width, the next one will be added to its right side
Next i
ActiveWorkbook.Save
End Sub

Answer 2

Change your macro like this:
Sub Macro4(startRow As String, stud As Long)
For k = 1 To stud
Dim constr() As String
Dim cn As String
cn = ""
constr = Split(strtRow,":")
For Each c in constr
cn = cn & "$" & c & ":"
Next
cn = Left(cn, Len(cn) - 1)
Rows(strtRow).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range("Sheet1!" & cn)
Dim str As String
str = ""
For each d in constr
str = str & (CInt(d)+1) & ":"
Next
str = Left(str, Len(str) - 1)
strtRow = str
Next
Now call like
Macro4("2:2",3)
Will do on 2:2 to 4:4