vba addtextbox

Sub abc()

For i = 1 To 255

With ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, Range("B" & i).Left, Range("B" & i).Top, Range("b" & i).Width, Range("B" & i).Height)

.TextFrame.Characters.Text = i

.Fill.ForeColor.RGB = RGB(i, 0, i)

End With

Next

MsgBox Shapes.Count

End Sub

Sub abc2()

MsgBox Shapes.Count

Shapes.SelectAll

End Sub