Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Deletes all the numbers in a worksheet, leaving the formulas intact

Sub del()      On Error Resume Next      For Each rng In Cells.SpecialCells(xlCellTypeConstants, xlNumbers)          If Not IsDate(rng.Value) Then rng.ClearContents      Next rng End Sub