Edit copied cells rather than original cells

Hi I am trying to do this:

1) Copy selected cells 10 rows below
2) Modify copied cells so that percentages become whole numbers and they are highlighted yellow.

Below is what I have so far. However this code is modifying the original cells, not the copied ones.

Before the line *For Each cell In r* I need to find a way to make it 'select' the copied cells so that these get modified instead.

Thanks very much for any help.


Sub Macro4()


Dim r As Range
Set r = Selection
r.Copy Destination:=r.Offset(10, 0)

For Each cell In r
With cell
If Application.WorksheetFunction.IsNumber(cell) Then
.Value = .Value * 100
.NumberFormat = "0"
.Interior.Color = RGB(255, 255, 0)
End If
End With
Next cell

End Sub

Please use code tags when posting.

Maybe:

Please Login or Register  to view this content.

Originally Posted by JOHN H. DAVIS

Please use code tags when posting.

Maybe:

Please Login or Register  to view this content.

Thanks that's great

You're welcome. Glad to help out and thanks for the feedback. Please comply with the Forum Rules and mark this thread as solved.

http://www.excelforum.com/forum-rule...rum-rules.html