Macro to re-write all cells in a column
 

columns(3).copy
columns(3).Pastespecial xlValues

or

set rng = Range(Cells(1,3),Cells(rows.count,3).end(xlup))
for each cell in rng
cell.formula = cell.Value
Next

adjust for formulas.

--
Regards,
Tom Ogilvy


"Bob L" wrote in message
...
I would like some help writing a macro to rewrite all the contents of the
cells for an entire column. Is this possible? Thanks for your help