Otomatik Hücre Geçişi

[suskkun]

Arkadaşlar forum da istediğime benzer uygulamalar olmasına rağmen tam olarak istediğimi bulamadım. yapmak istediğim şey şu.
Excelde herhangi bir hücreye 1,2,3,4 veya 5 yazdığımda otomatik olarak yan hücreye geçsin. nasıl yapabilirim. şimdiden teşekkürler.

 

[Ziynettin]

Merhaba,
......

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Cells
    Case 1
        Target.Offset(0, 1).Select
    Case 2
        Target.Offset(0, 1).Select
    Case 3
        Target.Offset(0, 1).Select
    Case 4
        Target.Offset(0, 1).Select
    Case 5
        Target.Offset(0, 1).Select
    End Select
End Sub