On Jan 5, 1:04*pm, "Bernie Deitrick" <deitbe @ consumer dot org
wrote:
Oops, I forgot to take out a single quote from this line:

Sht1.Cells(StartHere, 10).Resize(numRows).Formula = _
* *"'=IF(Security=""Some Stock Fund""," & _
* *"VLOOKUP(ProcessDate,Prices,5,FALSE),UnitPrice )"

Should be

Sht1.Cells(StartHere, 10).Resize(numRows).Formula = _
* *"=IF(Security=""Some Stock Fund""," & _
* *"VLOOKUP(ProcessDate,Prices,5,FALSE),UnitPrice )"

HTH,
Bernie
MS Excel MVP

"JohnPierce" wrote in message

...



If I "pick up" the data as a range, how then do I "lay it down" on the
other sheet as individual cells?- Hide quoted text -

- Show quoted text -

Bernie
Thanks for the code. It works nicely. I don't understand Resize but I
will use this program to learn how it works. Also, thanks for the clue
to fix my Array program.