Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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