Hi,

Im trying to write the first two rows and the last row of a range to a
two-dimensional array€¦ Can this be done w/o looping?

Thanks!

Dim FlashArr()
Set wkb = ActiveWorkbook

Set rng = Range(€œD4€�)
CellsAcross = Range(rng, rng.End(xlToRight)).Columns.Count

ReDim FlashArr(1 To 3, 1 To CellsAcross)
FlashArr = rng.Resize(2, CellsAcross)
FlashArr = Range(rng.End(xlDown), rng.End(xlDown).End(xlToRight))
--
______
Regards,
Greg