If you say this works:
ActiveSheet.Shapes("TextBox2").Delete

Then what you proposed originally worked fine for me as seen from the
immediate window:

? activesheet.shapes(1).Name
Textbox2
? Range("A1").Value
2
? [a1]
2
? Activesheet.Shapes("Textbox" & [A1]).Name
Textbox2
activesheet.Shapes("Textbox" & [A1]).Delete
---------------------

Textbox2 is deleted

Tested with both a Textbox from the drawing toolbar and one from the control
toolbox toolbar.

--
Regards,
Tom Ogilvy


"Andrew B" wrote in message
...
Thanks

Carim wrote:
answered too quickly ...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
i = Range("A2").Value
ActiveSheet.Shapes("TextBox" & i).Delete
End Sub