The following will give you an array that holds the number of each row.
Remember that Arrays start with element #0 by default:

a = Selection.Rows.Count
b = Selection.Row
ReDim array1(a)
For n = 0 To a - 1
array1(n) = b + n
Next n

- Piku

--
Message posted from http://www.ExcelForum.com