Jak
try
Sub Macro4()
Dim cell As Range
For Each cell In Selection
cell.Copy
cell.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next
End Sub

Cecil

"Jak" wrote in message
...
As you know excel does not paste as value when the cells
are selected with the control button in different parts of
the sheet. What I would like to do is to write a macro so
that
For each cell in selection
do the paste special for each cell
next cell

Can anyone help me with the systax of the above. I just
wrote what I needed excel to do.

Thanks