Nick

Set myRange = Selection
' do your thing

myRange.Select

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Nick" wrote in message
...
In excel, I selected a cell or range of cells to copy, and
they highlighted, I have code that runs on OnKey event.
This code changes the color of a few cells.
Because of the coding for coloring the selection of cells
for copy are lost. Is there a way to preserve the original
cells from loosing focus and selection?