i = Application.InputBox("Please enter value", "Enter Value", Type:=1)
Sub T()
Dim Sh As Shape
Set Sh = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 224.25, 110.25, _
134.25, 82.5)
Sh.Name = "MyTextBox"
End Sub
Sub AddTextBox()
Dim Sh As Shape
Set Sh = ActiveSheet.Shapes.AddTextBox(msoTextOrientationHorizontal, 224.25, 110.25, _
134.25, 82.5)
Sh.Name = "MyTextBox"
End Sub
Sub FormatTextBox()
With ActiveSheet.Shapes("MyTextBox")
.TextFrame.Characters.Text = "Hello there!"
.Fill.ForeColor.SchemeColor = 10
End With
End Sub