Warum selektierst du und warum der zweite Type-Check?
Dim objTxt As Excel.TextBox
Dim rng As Excel.Range
' Dim f As Single
Set rng = ActiveSheet.Range("J" & ActiveCell.Row & ":IT" & ActiveCell.Row)
For Each objTxt In ActiveSheet.TextBoxes
If Not Intersect(objTxt.TopLeftCell, rng) Is Nothing Then
Call objTxt.ShapeRange.IncrementLeft(f)
End If
Next
... sollte reichen.
|