write a macro that changes format of selected cells

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?

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

Well, that works... Thanks again Dave!! I appreciate it.