Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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