Select Case

[HYKE]

How to re-write this code better?

 Sub delType() Select Case Range("H:H").Value
 
 Case "Cred Memo (Val Only)", "Debit Memo(Val Only)", "Debit Memo (Val&Qty)", "Debit Memo Service", "NC Replc Ord/No rtrn", "Quotation", "Order Worksheet", "Rebate Part Settlmnt", "Rebate Manual Accrls", "Reb Accr Correction", "Reb Cr Req - Final", "Return w/ Auto Deliv", "Rtrns f/Internal Use", "Consignment Pick-up", "Return Non Value", "Intra-cross FE Rtn", "Goodwill", "Internal Usage", "Export Documentation", "Consignment Fill-up", "AMMAN", "Standard Order", "EA", "SO/PO Intracompany", "SO/PO Intra-cross", "Intercompany SO/PO"
    Range("A:A").Value = "X"
 End Select
 End Sub

Thanks!

 

[HYKE]

I want to have the columns that contains below words to be deleted instead (entire row).

"Cred Memo (Val Only)", "Debit Memo(Val Only)", "Debit Memo (Val&Qty)", "Debit Memo Service", "NC Replc Ord/No rtrn", "Quotation", "Order Worksheet", "Rebate Part Settlmnt", "Rebate Manual Accrls", "Reb Accr Correction", "Reb Cr Req - Final", "Return w/ Auto Deliv", "Rtrns f/Internal Use", "Consignment Pick-up", "Return Non Value", "Intra-cross FE Rtn", "Goodwill", "Internal Usage", "Export Documentation", "Consignment Fill-up", "AMMAN", "Standard Order", "EA", "SO/PO Intracompany", "SO/PO Intra-cross", "Intercompany SO/PO"How to write the code?Thanks!
</pre>

 

[VoG]

Maybe

Sub delType()
Dim LR As Long
Dim i As Long
LR = Range("H" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    Select Case Range("H" & i).Value
        Case "Cred Memo (Val Only)", "Debit Memo(Val Only)", "Debit Memo (Val&Qty)", "Debit Memo Service", "NC Replc Ord/No rtrn", "Quotation", "Order Worksheet", "Rebate Part Settlmnt", "Rebate Manual Accrls", "Reb Accr Correction", "Reb Cr Req - Final", "Return w/ Auto Deliv", "Rtrns f/Internal Use", "Consignment Pick-up", "Return Non Value", "Intra-cross FE Rtn", "Goodwill", "Internal Usage", "Export Documentation", "Consignment Fill-up", "AMMAN", "Standard Order", "EA", "SO/PO Intracompany", "SO/PO Intra-cross", "Intercompany SO/PO"
        Rows(i).Delete
    End Select
Next i
End Sub

 

[HYKE]

Thanks Vog!