MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Finding Numeric Cells

Posted by Sam on June 26, 2001 9:58 AM

Is there a macro that will go through a certain column and find all of the numeric values and delete that row?

Posted by Russell on June 26, 2001 10:15 AM

Dim intRow as Integer

For intRow = intLastRow to intFirstRow Step -1
....If IsNumeric(Cells(intRow, intCol).value) then
....End If
Next intRow

You need to go backwards because once you delete a row, all the rows move up.

Hope this helps,


Posted by Sam on June 26, 2001 12:17 PM


That did it thanks for your help.