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

Try

If cell.Value <> "Pending" Then

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


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


<(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
>
>
> 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
>

On Jul 11, 1:33 pm, "Ron de Bruin" <rondebr...@kabelfoon.nl> wrote:
> Try
>
> If cell.Value <> "Pending" Then
>
> See also the union example on this pagehttp://www.rondebruin.nl/delete.htm
>
> --
>
> Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm
>
> <jaydy...@gmail.com> wrote in messagenews:(E-Mail Removed)...
>
> > 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

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