VBA Help

[Miya]

Hi, this code deletes all the cases listed in the code, but how can i add another rule which will not delete SMPFFB?

Public Sub NomsPfolios()
Dim i As Long, _
LR As Long

LR = Range("B" & Rows.Count).End(xlUp).Row
ScreenOff
For i = LR To 7 Step -1
Select Case Left(Range("B" & i).Value, 2)
Case "WE", "WS", "WT", "WM"
Case Else
Rows(i).Delete
End Select
Next i
ScreenOn
End Sub

 

[ChrisOswald]

First off, I'm assuming that you mistyped and that the code is intended to delete all rows EXCEPT the cases listed. (first two charaters are "WE", "WS", etc)

If so, this

Public Sub NomsPfolios()
    Dim i                           As Long, _
        LR As Long
    LR = Range("B" & Rows.Count).End(xlUp).Row
    ScreenOff
    For i = LR To 7 Step -1
        Select Case Left(Range("B" & i).Value, 2)
        Case "WE", "WS", "WT", "WM"
        Case Else
            'This could grow up to be a monster, but if it does you could 
            'switch to a nested select
            If Left(Range("B" & i).Value, 6) <> "SMPFFB" Then
                Rows(i).Delete
            End If
        End Select
    Next i
    ScreenOn
End Sub

should work.