Hi,

How can I create a macro that deletes rows when a cell is not equal to specific values e.g

1
2
3
4
5
6
7
8
9
10

If the cells above is not equal to 2,4,5, and 7, then delete rows.

Hope you can help

Here is one primitve way of doing this

Sub DeleteRows()

lmax = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell) .Row
For i1 = 1 To lmax

 If (Cells(i1, 1).Value <> 2 And Cells(i1, 1).Value <> 4 And Cells(i1, 1).Value <> 5 And Cells(i1, 1).Value <> 7) Then

        ActiveSheet.Rows(i1).EntireRow.Delete
        i1 = i1 - 1
        lmax = lmax - 1
        If i1 >= lmax Then Exit Sub
 End If
Next i1
End Sub

I have assumed that ur values will be in first column

Cheers
Shasur

http://www.vbadud.blogspot.com