Delete Row Macro - if cell > $5000

[Danny]

Hi,

How do I delete a rows in Column F if a cell reflects a value of more than
$5,000.

Thanks

[Chip Pearson]

You can do it with a VBA macro:

Sub AAA()
Dim LastRow As Long
Dim RowNdx As Long
LastRow = Cells(Rows.Count, "F").End(xlUp).Row
For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "F").Value > 5000 Then
Rows(RowNdx).Delete
End If
Next RowNdx
End Sub



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Danny" <[email protected]> wrote in message
news:[email protected]...
> Hi,
>
> How do I delete a rows in Column F if a cell reflects a value
> of more than
> $5,000.
>
> Thanks