Consolidate (sum) last sheet (32) of all workbooks in a folder
On Jun 1, 12:23*pm, "Norman Jones"
wrote:
Hi Joel,
===========
[...] Not sure what is causing the Large Amount of data in clipboard. *I can't
repeat this problem. *If fixing the above statement doesn't solve the
problem
then ask in a new posting
===========
Try replacing:
ec TotalRange.Copy
AllTotalRange.PasteSpecial _
Operation:=xlAdd
with:
* *'copy and add data to total workbook
* * TotalRange.Copy
* * AllTotalRange.PasteSpecial _
* * * * * * Operation:=xlAdd
* * Application.CutCopyMode = False
---
Regards.
Norman
Hi Joel and Norman,
It works perfectly. I am impressed - it is a very elegant solution.
Regards
Bob
|