Saturday, 20 September 2014

Clear Contents without Clearing Formula

Sub ClearItOut()
Cells.Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.ClearContents
End Sub

No comments:

Post a Comment