Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Delete numbers
Sub DeleteNumbers()
  Dim rng As Range
  For Each rng In Cells.SpecialCells(xlCellTypeConstants, xlNumbers)
    If Not IsDate(rng.Value) Then rng.ClearContents
  Next rng
End Sub