Hi Rob,

What is wrong with the loop? It's fast, what more do you need?

The latter can be done with

ReDim FVE(0 To cds.cbData)
FVE = Sheets(sSheet).Cells(2, 20).Resize(cds.cbData+1)

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Rob" wrote in message
...
Is there a fast way to fill a range of cells with the contents
of a VB SafeArray. I need a shortcut to the following
code :

For i = 0 To UBound(c)
Sheets(sSheet).Cells(i + 2, 6).Value = A(i)
Next i

Also, is there a fast way to fill VB SafeArray with the
contents of a Range. Again, I need a shortcut to the
following code :

ReDim FVE(0 To cds.cbData)
For i = 0 To cds.cbData
FVE(i) = Sheets(sSheet).Cells(i + 2, 20).Value
Next i

Please help and TIA, Robert