Application.ScreenUpdating = False
With Worksheets("Sheet1").Cells
.Activate
set rng = Selection
.Copy
.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
rng.Select
End With
Application.ScreenUpdating = True

or just

With Worksheets("Sheet1").UsedRange
.formulas = .Values
End With

--
Regards,
Tom Ogilvy


"Orion" wrote in message
...
Hi Niek,

I have tried that as well. I know what it does. It just takes that
flickering frame from the cells, but the cells themselves are still
selected.

Regards,
Norbert


On Fri, 4 Feb 2005 12:58:17 +0100, "Niek Otten"
wrote:

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