Sub killMeNow()
dim intRow as integer
dim cell
intRow=0
activesheet.cells.specialcells(xlCellTypeFormulas) .activate
for each cell in selection
sheets("NewSheet").range("A1").offset(intRow,0).va lue=" ' " & cell.formula
introw=introw+1
next

end sub


"Dean" wrote:

What is the quickest way to delete all the data but save the formulas?