Trying to do delete all rows that have text...

[ermccarthy]

I am struggling..... This is a snippet of a larger code. Trying to delete any ROWS in which the cell in column A is Text. (think isText function on the worksheet).

'Declare Variables
Dim LastRow As Long, FirstRow As Long
Dim Row As Long
 
With ActiveSheet
    'Define First and Last Rows
    FirstRow = 2
    LastRow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
 
    'Loop Through Rows (Bottom to Top)
    For Row = LastRow To FirstRow Step -1
        If .Range("A" & Row).Value = Application.WorksheetFunction.IsText Then
            .Range("A" & Row).EntireRow.Delete
        End If
    Next Row
End With

Any ideas??

 

[bebo021999]

May be:

 If  Application.WorksheetFunction.IsText(.Range("A" & Row).Value) Then

or try another version:

Sub test()
Dim lr&, fr&, cell As Range
With ActiveSheet
fr = 2
lr = .Cells(Rows.Count, 1).End(xlUp).Row
    For Each cell In .Range(.Cells(fr, 1), .Cells(lr, 1))
        If Not IsNumeric(cell) Then
            cell.Delete
        End If
    Next
    .Range(Cells(fr, 1), Cells(lr, 1)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub

 

[ermccarthy]

Worked Perfectly.....I clearly just had the statement backwards. THANKS!!!!