this works fine for me....

Sub blah()
Dim x As Integer
ntrow = 22
nbrow = 25
gsLeft = 4

With Sheets("Sheet1")
Set ngrid = Application.Union(Range(.Cells(ntrow, gsLeft),
..Cells(ntrow, _
gsLeft + 12)), Range(.Cells(nbrow, gsLeft), .Cells(nbrow, gsLeft +
12)))
End With

x = 1

For Each xlcell In ngrid
xlcell.Value = x
x = x + 1
Next xlcell

End Sub


--
MattShoreson
------------------------------------------------------------------------
MattShoreson's Profile: http://www.excelforum.com/member.php...fo&userid=3472
View this thread: http://www.excelforum.com/showthread...hreadid=543662