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