With sInput.Range("Y22:Y200")
..Formula = .Value
End With

--
Regards,
Tom Ogilvy


Dan Gesshel wrote in message
...
Hello.

I want to do a PasteValue over the same range to keep the values and wipe
the formulas. I thought this would work:

sInput.Range("Y22:Y200").Copy
sInput.Range("Y22:Y200").PasteSpecial xlPasteValues

Unfortunately, this is still selecting the cells. Is there a way to do a
PasteValue without selecting the cells in any way? Any help would be
greatly
appreciated.

Thanks.

Dan