Hi Jon

Sub DefineCalcRanges()
Set Shd = Sheets("Data")
'column ranges for columns 4 to 30
For i = 1To 200 'number of rows required
Set rng = range(Shd.Cells(i, 1),Shd.Cells(i,13))
rng.Name = "rname" & i
Next i
End Sub

produces
rname1 for Range("A1:M1") on Sheets("Data")
rname2 for Range("A2:M2")
rname3 for Range("A3:M3")
and so on

hope this helps

Andrew Bourke



"Jon Tillman" wrote in message
...
I have a sheet that has several hundred rows. I would like to start at
row 1, select the range from 1 to 13, create a named range from it,
then move to row 2 and repeat, throughout the sheet, until there are
no more 13 row ranges possible. How on earth would I go about doing
this?