in zelle C springen | Herbers Excel-Forum

Hallo anbei habe ich ein Makro das mir ganz gut gefällt jetzt möchte ich es nur so abändern , das es nicht immer in A1 spingt Range("A1").Select
sondern in der jeweiligen reihe wo man in den gesperrten bereich betreten möchte in dei zelle C
also wenn ich in reihe 18 den gesperrten bereich einteren möchte soll er in C 18 springen
hoffe es ist verständlich

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'* H. Ziplies                                     *
'* 08.01.03                                       *
'* erstellt von Hajo.Ziplies@web.de               *
'* http://home.media-n.de/ziplies/ *
'   ein bestimmter Bereich darf nicht ausgewählt werden
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("i13:l27")
'    ActiveSheet.Unprotect
For Each RaZelle In Range(Target.Address)
If Intersect(RaZelle, RaBereich) Is Nothing Then
Else
Range("A1").Select
Exit For
End If
Next RaZelle
'    ActiveSheet.protect
End Sub