Sin Tantos If y End If

Hola, Oscar ! =>'parece' que se han perdido algunos mensajes por causas del virus<= :((

Para hacer varias condicionales, siempre hay que abrir un If y cerrar (End If) cada una?
Y para que "No Exista" lo que digito cómo le digo que si es diferente "RD20" o "RD21" o "RZ30" o "RZ31" etc?

Opcion 1) =>'If...ElseIf...Else' => la primera que se cumpla [si se cumple] <For i = 2 To 10
If Cells(i, 1) = "RD20" Then
Cells(i, 2) = "Tapa Posterior Cóncava"
ElseIf Cells(i, 1) = "RD21" Then
Cells(i, 2) = "Tapa Posterior Plana"
Else: Cells(i, 2) = "No Existe"
End If
Next i

Opcion 2) 'Select Case' => el caso que se aplique [si se aplica] <For i = 2 to 10
Select Case Cells(i, 1)
Case "RD20": Cells(i, 2) = "Tapa Posterior Cóncava"
Case "RD21": Cells(i, 2) = Tapa Posterior Plana"
Case Else : Cells (i, 2) = "No Existe"
End Select
Next i
_______
Saludos,
Héctor.
MS-MVP