View Single Post
  #15   Report Post  
Posted to microsoft.public.excel.programming
[email protected] borisg5@bigpond.com is offline
external usenet poster
 
Posts: 18
Default 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