Hi

I would like to be able to delete a shape depending on the value in a cell.

ActiveSheet.Shapes("TextBox2").Delete - works.

If [A2] = 1 then I would like to delete TextBox1.
If [A2] = 2 then I would like to delete TextBox2.


This doesn't work:

ActiveSheet.Shapes("TextBox" & [A2]).Delete

or

S1 = "TextBox" & [A2]

ActiveSheet.Shapes(S1).Delete


Can somebody help me with this ?

TIA

Andrew B