Форум по VBA, Excel и Word

Возможно ли с помощью макроса заменять значение ячейки на основании данных этой же ячейки?
Если в A1 число 1, то записать в A1 число 2. Если 2, то записать 3. Если 3, то записать 1.

Sub Макрос()
   
    If Range("A1").Value = 1 Then
        Range("A1").Value = 2
    ElseIf Range("A1").Value = 2 Then
        Range("A1").Value = 3
    ElseIf Range("A1").Value = 3 Then
        Range("A1").Value = 1
    End If
   
End Sub

спасибо