Hallo zusammen

Ich habe in einem Terminprogramm den Befehl via Userform Textfelder um f zu verschieben.
Das ganze habe ich mit einer For Each Next Schlaufe gemacht. Jetzt habe ich das Problem das teilweise eine Textbox zweimal um den Wert f verschoben wird. Kann mir da jemand helfen?

Der werd f kommt aus einer Userform.

Dim Sh As TextBox
Dim i As String
i = ActiveCell.Row
Set rng = Range("J" & i & ":IT" & i)

For Each Sh In ActiveSheet.TextBoxes
    If Not Intersect(Sh.TopLeftCell, rng) Is Nothing Then Sh.Select
        If TypeOf Selection Is TextBox Then
    
        Selection.ShapeRange.IncrementLeft f
        Else
        GoTo Nächste
    End If

Nächste:
Next Sh