in code

columns(10).copy
columns(10).PasteSpecial xlPasteValues

columns(14).copy
columns(14).PasteSpecial xlPasteValues

if they are adjacent

set rng = Columns(10).Resize(,2)
rng.copy
rng.Pastespecial xlPasteValues

--
Regards,
Tom Ogilvy


"Dave Peterson" wrote in message
...
copy|paste special values (for each column if they're not adjacent) should
go
pretty fast.

Les Stout wrote:

Hi all, I have two columns that have formula's in and i need to replace
the formula's with the values. The page can be up to 60,000 rows long,
so the code need to be quick if possible.

Thanks in advance

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***

--

Dave Peterson