moving text box in a sheet according to a loop variable

hello,

I need to creat multiple textboxes in a loop and to place them one under another. I am trying to use Selection.ShapeRange.IncrementTop 60+I when I is the loop variable. but it is not working, any help?


Thank you!

Like this maybe?

Sub Macro2()

Dim i As Long

For i = 10 To 50 Step 10
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 60 + i, 20, 10).Select
Next i

End Sub