It worked ok for me when I tested it.

Did you change anything?

That line "Me.Range(myFromAddr(iCtr)).Value" is really part of a larger line.

.Cells(myToRow(iCtr), NextColNum).Value _
= Me.Range(myFromAddr(iCtr)).Value

If you changed the code, you may want to post back with your current code--not
the workbook, just the code.

Mikeice wrote:

Hi There Dave

I tried your code and have two little probs.

1. It only copies 4 cells to the summary sheet.

2. Getting debug error at - = Me.Range(myFromAddr(iCtr)).Value

thanks for your help so far but really need your help.

I will send spreadsheet if that would be easier.

I am still learning excel and do struggle at the VBA level.

thx

--
Mikeice
------------------------------------------------------------------------
Mikeice's Profile: http://www.excelforum.com/member.php...o&userid=22467
View this thread: http://www.excelforum.com/showthread...hreadid=374865

--

Dave Peterson