Loop In Macro Doesnt Stop!

What I am trying to do is create a chart for each row in my raw data - the rows does change on a week to week basis as we are comparing stores

My raw data is: (I would post data although its too wide
Column A - New Store
Column B - Like Store
Column C:N - New Store Sales
Column O:Z - New Store SOH
Column AA:AL - LIke Store Sales
Column AM:AX - LIke Store Sales

I am trying to loop my code so that it creates a new chart for each row....although the loop keeps going and it doesnt move down a row each time

my code is:


Range("A1").CurrentRegion.Select
rnum = Selection.Rows.Count
Range("C2:N2").Select
For i = rnum + 1 To Rows.Count
If rnum >= 1 Then
Charts.Add
ActiveChart.SetSourceData Source:=Range("'CHART RAW DATA'!$C$2:$N$2").................