Sub AddTextBox()
ActiveSheet.Shapes.AddTextBox(msoTextOrientationHorizontal, 2.5, 1.5, _
116, 145).TextFrame.Characters.text = "This is a test of inserting a text box to a sheet and adding some text."
With Selection.Characters(Start:=1, Length:=216).font
.name = "Arial"
.FontStyle = "Regular"
.size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
range("I15").Select
End Sub