View Single Post
  #2 (permalink)  
Old August 23rd, 2005, 02:38 AM
mjppaba mjppaba is offline
Friend of Wrox
 
Join Date: Jan 2005
Location: Bournemouth, Dorset, United Kingdom.
Posts: 180
Thanks: 0
Thanked 0 Times in 0 Posts
Default

replace your last line of code with the following.

.Range("A5").PasteSpecial Paste:=xlValues, Operation:=xlAdd

cheers

Matt

Reply With Quote