Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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