Problems with creating TextBox shapes to a selection using VBA

Hi All,

I'm having trouble trying to create text box shapes onto a spreadsheet and entering the data from a userform without it affecting all other textboxes on the worksheet, could anybody help me out? The code i use to create the text boxes is as follows:

If TypeName(Selection) = "Range" Then
With Selection
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, .Left, .Top, .Width, .Height).Select
End With
With Selection
.Text = TextBox1.Text + " " + TextBox2.Text
End With
End If

Thanks in advance

Hi Dave,

Thank you for the reply. The range for the textbox is where ever the user selects on the worksheet. I'm trying to create a production board that shows how long a job is in a machine and the user will have the ability to move the job onto another machine if required, would you like me to send you the file for you to see what happens?

Will activecell still let you use a range of cells for the textbox or will it create a seperate textbox for each cell?