Dear all,

I have made the loop below, It works fine, but now I am strugling with
the following. I want the Range to be dynamic, the starting point will
always be A8, but in cell C5 there is a number determining the end
point of the loop: So C5 = 5 then the end will be A12, C5 = 10, the
end will be A17. How can I make this?

Dim Rng As Range
Dim sheetname As String

For Each Rng In Range("'Main Data Sheet'!A8:'Main Data
Sheet'!A12")
Sheets.Add
sheetname = [Rng]
ActiveSheet.Name = (sheetname)
Next Rng

Regards,
Jeroen Kluytmans