Dla następującego kodu

If Sheets("sheet1").Range("A1").Value = "option_1" Then
    Sheets("sheet1").Range("A1").Value = "option_2"
ElseIf Sheets("sheet1").Range("A1").Value = "option_2" Then
    Sheets("sheet1").Range("A1").Value = "option_3"
ElseIf Sheets("sheet1").Range("A1").Value = "option_3" Then
    Sheets("sheet1").Range("A1").Value = "option_4"
...
End IF

i

Select Case Sheets("sheet1").Range("A1").Value
    Case Is = "option_1"
        Sheets("sheet1").Range("A1").Value = "option_2"
    Case Is = "option_2"
        Sheets("sheet1").Range("A1").Value = "option_3"
    Case Is = "option_3"
        Sheets("sheet1").Range("A1").Value = "option_4"
    ...
End Select

Pytania:

1) Zastanawiam się, która droga byłaby szybsza. A jeśli to możliwe, można wyjaśnić szczegóły techniczne?

2) Niezależnie od wydajności, jaką metodę należy zastosować w tym przypadku, dla lepszego kodowania.

3) Jakikolwiek inny „prosty” sposób na zakreślenie wartości z tablicy?