Hi Norbert,

Add

Application.CutCopyMode = False

after the Paste

--

Kind Regards,

Niek Otten

Microsoft MVP - Excel

"Orion" wrote in message
...
Hello everybody,

this is part of my code:
...
.....
With Worksheets("Sheet1").Cells
.Copy
.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End With
.....
...

the code copies all cells of an (inactive) worksheet and pastes the
values back onto the worksheet, so that there are no formulas left
anymore.

When I return to that particular sheet, I can still see that all the
cells are selected.

How can I get rid of the selection?
I want the selected cell to be A1, but adding code for selecting cell
A1 did not help.

Please help.

Regards,
Norbert