I'd use something like:

Option Explicit
Sub testme01()

Dim myCell As Range
Dim myTextBox As TextBox

Set myCell = ActiveCell

With myCell
Set myTextBox = .Parent.TextBoxes.Add(Top:=.Top, Left:=.Left, _
Width:=.Width, Height:=.Height)
End With

With myTextBox
.Caption = "some stuff" 'if you want...
End With

End Sub

Borg wrote:

I'm trying to create a macro to insert a Text Box (Autoshape) in any
Active Cell.

I used the VBA macro recorder to create an initial macro, but have not
been able to have the text box placed in the active cell. I tried
modifying the code, but each time it places the text box in the area I
originally recorded the macro. I'm a beginner.

Here is an example of the vba code without modification:

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 222#, 69.75, 72#, 72#).
_
Select
Selection.ShapeRange.ScaleWidth 6.26, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.97, msoFalse,
msoScaleFromTopLeft
Selection.Characters.Text = ""
With Selection.Font
Name = "Arial"
FontStyle = "Regular"
Size = 10
Strikethrough = False
Superscript = False
Subscript = False
OutlineFont = False
Shadow = False
Underline = xlUnderlineStyleNone
ColorIndex = xlAutomatic
End With

Thanks in advance. :)

--
Borg
------------------------------------------------------------------------
Borg's Profile: http://www.excelforum.com/member.php...o&userid=36396
View this thread: http://www.excelforum.com/showthread...hreadid=561752

--

Dave Peterson