How to use Select Case in a loop

[mikea3]

Hi - I've been using the following code which I found here in the forum earlier to delete rows when a value is not present in a cell, but now I need to check for up to 25 possible values in the same cell. In other words if cell i,10 is not equal to one of the Twenty Five values then delete the row. I know it's probaby a select case but I'm pretty much a novice with VBA and can't get any of my Case variations to work.

Sub deleteRows()
    Dim i As Long, rCount As Long
    rCount = Cells(Rows.Count, 1).End(xlUp).Row
    MsgBox rCount
    For i = rCount To 2 Step -1
        If Cells(i, 2) <> "8170" Then
            Cells(i, 2).EntireRow.Delete
        End If
    Next

End Sub

Thanks for your help /Mike

[shg]

Mike,

Please take a few minutes to read the Forum Rules, and then edit your post to wrap your code with Code Tags.

[shg]

select case cells(i,2).value
    case 1, 10, 27, 24, ...
        ' do nothing
    case else
         cells(i, 2).entirerow.delete
end select