vba to blank cells with criteria

[wigarth]

Hi!

I am sure there is a 10 line easypeasy macro to solve my issues here...
The problem is that I (and google) lack the expertise to find it.

I have a sheet with a column ("D") and it has some cells that needs to be blanked.
The cells that are to be "Blanked" are cells contaning "numbers only"
The cells to keep, contains only text or numbers and text in the same cell.


So basically i need to make a macro that loops throgh area D1:D100000 and blank out cells that contains only numbers and skips the ones containing text/text and numbers
With the word "Blanked" I mean "" (Make the cell empty, not hide/delete it)


In exaple:

Cell D12 ---> "17551" <-- make this cell blank, replace with ""
Cell D13 ---> "Product12" <-- Skip this cell
Cell D14 ---> "Region8" <--- Skip this cell
Cell D15 ---> "64665" <-- make this cell blank, replace with ""
Cell D16 ---> "4th annual summary" <-- Skip this cell
Cell D17 --->"323" <-- make this cell blank, replace with ""

I have several macros that can remove numbers, but they remove the numbers from the cells that contain text as well... Anyone with some advice here?

Best reggards:
Wigarth

 

[Akuini]

Try:

Sub try333()
Range("D1:D100000").SpecialCells(xlConstants, xlNumbers).ClearContents
End Sub

 

[wigarth]

Try:

Sub try333()
Range("D1:D100000").SpecialCells(xlConstants, xlNumbers).ClearContents
End Sub

I stand corrected... 1 line to solve it all... Thanks Loads for this one Akuini!