Option Explicit
Sub testme()

Dim myCell As Range
Dim myRng As Range
Dim myArea As Range

Set myRng = Selection

Set myCell _
= ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell) .Offset(1, 1)

myCell.Copy
For Each myArea In myRng.Areas
myArea.PasteSpecial Paste:=xlPasteAll, _
Operation:=xlAdd, SkipBlanks:=False, Transpose:=False
Next myArea

Application.CutCopyMode = False
End Sub


DKY wrote:

I need to figure out how to write a macro that will do what Dave
Peterson suggests in this link
http://www.excelforum.com/showthread.php?t=525679
with whatever cells I select. Any ideas?

--
DKY
------------------------------------------------------------------------
DKY's Profile: http://www.excelforum.com/member.php...o&userid=14515
View this thread: http://www.excelforum.com/showthread...hreadid=527715

--

Dave Peterson