Hi Otto

I always select the first cell but this only work if the Dest sheet is active

With dest.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
' Paste:=8 will copy the column width in Excel 2000 and higher
' If you use Excel 97 use the other example
.Cells(1).PasteSpecial xlPasteValues, , False, False
.Cells(1).PasteSpecial xlPasteFormats, , False, False
.Cells(1).Select
Application.CutCopyMode = False
End With


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Otto Moehrbach" wrote in message ...
Excel XP & Win XP
I am operating within a 'With ws/End With' construct, where ws is a worksheet. I copy a range from somewhere else and paste it to
ws. My copy paste commands a
ThisRange.copy
.ThisCell.PasteSpecial xlPasteValues

When the code is through and I manually select sheet ws, I see that the paste range is still all blue from the paste action. I
can take all the blue out by simply selecting any cell, of course. But my question is: Can I get rid of the blue in the paste
range of ws by code, after the paste command, without selecting ws and selecting a cell?
Thanks for your time. Otto