Textbox in a cell

[Cagey]

I want to put a button on the toolbar to let the user automatically create a
text box the same size and color etc everytime.
I created a macro that will do this relative to the worksheet

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 400, 130, _
50, 70).Select

but i want it to be created in the active cell. Can i do this?

 

[Andy Brown]

You can't have a TextBox "in" a cell. It's in another (?drawing?) layer.

Regrets,
Andy

 

[Thomas]

Sure you can ,on 'top' of it, in the same size if you wish.

ActiveSheet.TextBoxes.Add(ActiveCell.Left, ActiveCell.Top, _
ActiveCell.Width, ActiveCell.Height).Select

 

[Andy Brown]

My bad - I read "in" <> "on".

Rgds,
Andy