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
........Rows(intRow).Select
........Selection.EntireRow.Delete
....End If
Next intRow
You need to go backwards because once you delete a row, all the rows move up.
Hope this helps,
Russell
Posted by Sam on June 26, 2001 12:17 PM
Thankyou
That did it thanks for your help.
Sam
