Shorten/simplify/improve/make more efficient this bit of code

[Truiz]

Good day lads,

I have this code

For iCntr = lRow To 1 Step -1                                           If Cells(iCntr, "L") = "Close" Then                                 
    Rows(iCntr).Delete                                                  
    End If                                                              
    Next                                                                
                                                                        
    For iCntr = lRow To 1 Step -1                                       
    If Cells(iCntr, "L") = "Close Supervised + Auto Notify" Then        
    Rows(iCntr).Delete                                                  
    End If                                                              
    Next                                                                
                                                                        
    For iCntr = lRow To 1 Step -1                                       
    If Cells(iCntr, "L") = "Fail to Close" Then                         
    Rows(iCntr).Delete                                                  
    End If                                                              
    Next                                                                
                                                                        
    For iCntr = lRow To 1 Step -1                                       
    If Cells(iCntr, "L") = "Fail To Open" Then                          
    Rows(iCntr).Delete                                                  
    End If                                                              
    Next

I wrote it as such cuz i'm no expert in VBA I was wondering if there is a way to shorten the code I mean it works and everything I just think in looks dirty to have that.

Regards,

 

[Rick Rothstein]

I encountered an issue.

One of the strings I want to delete is AR/Billing "Insurance" as you can see it has quotation marks, thus creating a syntax error

You have to double up quote marks that are located inside the quote marks that delineate the text string. For my code...

[table="width: 500"]
[tr]
	[td]For iCntr = lRow To 1 Step -1
  Select Case Cells(iCntr, "L")
    Case "Close", "Close Supervised + Auto Notify", "Fail to Close", "Fail To Open", "AR/Billing [B][COLOR="#FF0000"][SIZE=3]""[/SIZE][/COLOR][/B]Insurance[B][COLOR="#FF0000"][SIZE=3]""[/SIZE][/COLOR][/B]"
      Rows(iCntr).Delete
  End Select
Next[/td]
[/tr]
[/table]

 

[Truiz]

You have to double up quote marks that are located inside the quote marks that delineate the text string. For my code...

[TABLE="width: 500"]
<tbody>[TR]
[TD]For iCntr = lRow To 1 Step -1
  Select Case Cells(iCntr, "L")
    Case "Close", "Close Supervised + Auto Notify", "Fail to Close", "Fail To Open", "AR/Billing [B][COLOR=#FF0000][SIZE=3]""[/SIZE][/COLOR][/B]Insurance[B][COLOR=#FF0000][SIZE=3]""[/SIZE][/COLOR][/B]"
      Rows(iCntr).Delete
  End Select
Next[/TD]
[/TR]
</tbody>[/TABLE]

Whe I first worte it It didn't work, can't really tell how or why but eventually it did thanks.