Try this...


Sub Macro1()
For Each Shape In ActiveSheet.Shapes
If Shape.Name = "MyTextBoxName" Then
Shape.delete
End If
Next Shape

Insert your PASTE code here


End Sub


--
mrice

Research Scientist with many years of spreadsheet development experience
------------------------------------------------------------------------
mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931
View this thread: http://www.excelforum.com/showthread...hreadid=546853