Macro needed (delete letters)

[ironsides]

each Cell in Col AB contains either no data, numbers or letters, not both
Starting Cell AB19 I need to clear letters only
leaving numbers to remain

 

[Rick Rothstein]

each Cell in Col AB contains either no data, numbers or letters, not both
Starting Cell AB19 I need to clear letters only
leaving numbers to remain

Maybe this...

[table="width: 500"]
[tr]
	[td]Sub DeleteOnlyCellsContainingLetters()
  On Error GoTo NoText
  Range("AB19", Cells(Rows.Count, "AB").End(xlUp)).SpecialCells(xlConstants, xlTextValues).ClearContents
NoText:
End Sub[/td]
[/tr]
[/table]

 

[ironsides]

I get an error message compile error Expected End Sub

 

[Rick Rothstein]

I get an error message compile error Expected End Sub

Check your other code in the module for a missing "End Sub" (if you notice, the code I posted has one, so it cannot be missing).

 

[ironsides]

Rick I found my problem Your macro works well
Thanks again Matt