Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim actR, actC, keyL As Long
Const maxR = 1000 'Absolute Obergrenze für Zeilen 65536
Const maxC = 10 '  Absolute Obergrenze für Spalten  256
Const minR = 2 '   oberer Suchbeginn
Const minC = 1 '   linker Suchbeginn
' Ich muss den Wert sofort sichern, da er sich beim Debuggen
' verändert !
keyL = GetKeyState(vbKeyTab)
' Wenn das Selection Change Ereignis durch die
' TAB Taste ausgelöst worden ist ist keyL = -127
If keyL < 0 Then
    actR = Target.Row: actC = Target.Column
    ' Wenn Zelle gelocked
    Do While Cells(actR, actC).Locked
        ' Eine Spalte nach rechts
        ' bzw. in die erste linke Spalte (minC)
        actC = IIf(actC = maxC, minC, actC + 1)
        If actC = minC Then 'neue Zeile
            ' Eine Zeile nach unten
            ' bzw. in die oberste Zeile (minR)
            actR = IIf(actR = maxR, minR, actR + 1)
        End If
    If Cells(actR, actC).Address = Target.Address Then
        MsgBox "Ich habe keine ungesperrte Zelle gefunden!" _
             , vbExclamation + vbOKOnly _
             , "Uups!"
        Exit Sub
    End If
    Loop
    Cells(actR, actC).Select
End If
End Sub