Method to programatically create range

[tdp3290]

Is it possible to programatically create a range by counting down 1000 rows and then calling it "Rng1000", counting down another 1000 rows and calling it "Rng2000" etc until I have gone down thousands of rows?

Can I then perform a recalculation on each selected range one at a time?

Thanks!

 

[GTO]

Just be example:

Sub AddNames()
Dim i As Long
    
    For i = 10 To 90 Step 10
        ThisWorkbook.Names.Add Name:="MyRange_" & i / 10, RefersTo:="=Sheet1!" & Range(Cells(i - 9, 1), Cells(i, 1)).Address
    Next
End Sub