Thanks Mangesh and all. I also stumbled across this solution which I
wiosh to share.

For i = 1 to [1:1,3:3, 11:11,12:12,30:30,40:40,99:99,100:125].Rows
Cells(j.Rows,1)="test"
Next

The last item 100:125 in the array covers the range 100-125, and for
this exercise picks up Cells A100 to Cells A125 serially.

David


--
davidm
------------------------------------------------------------------------
davidm's Profile: http://www.excelforum.com/member.php...o&userid=20645
View this thread: http://www.excelforum.com/showthread...hreadid=378912