Delete Row Help

[jaydywan]

I am trying to have a macro that will delete any row where B is not
"Pending." My code below is giving an error on line: If (cell.Value)
<> "Pending" Then

Can you troubleshoot? Thanks.

A B C D
10/18/2006 9:39 Pending 34 Local Area Activity
11/20/2006 9:44 Completed 1 Local Area Activity
11/20/2006 9:59 Pending 2 Local Area Activity

Sub Only_Pending()
Dim rng As Range, cell As Range, del As Range
Set rng = Intersect(Range("B:B"), ActiveSheet.UsedRange)
For Each cell In rng
If (cell.Value) <> "Pending" Then
If del Is Nothing Then
Set del = cell
Else: Set del = Union(del, cell)
End If
End If
Next
On Error Resume Next
del.EntireRow.Delete
'
End Sub

 

[Ron de Bruin]

Try

If cell.Value <> "Pending" Then

See also the union example on this page
http://www.rondebruin.nl/delete.htm

 

[jaydywan]

Try

If cell.Value <> "Pending" Then

See also the union example on this pagehttp://www.rondebruin.nl/delete.htm

I used another of your examples, and got it to work. thanks.