Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Clear NonDate Cells
Public Sub ClearNonDateCells()
  Dim aRange As Range
  For Each aRange In Cells.SpecialCells(xlCellTypeConstants, xlNumbers)
    If Not IsDate(aRange.Value) Then aRange.ClearContents
  Next aRange
End Sub