Antidote.....Désinscrire les noms des shapes

Bonjour à Tous,


Sans le vouloir, j'ai exécuter une macro qui m'inscris tous les noms des Shapes à l'intérieur de ceux-ci :

Sub EcritRégions()
For Each c In [régionszone1]
If c <> "" Then ecritShape c, c
Next c
End Sub
Sub ecritShape(nomShape, Libellé)
Application.Volatile
With ActiveSheet.Shapes(nomShape).TextFrame2.TextRange
.Characters.Text = Libellé
.Characters.Font.Size = 7
.Parent.VerticalAnchor = msoAnchorMiddle
.Parent.HorizontalAnchor = msoAnchorCenter
End W

Je voudrais faire l'inverse, c'est à dire les enlever.....si vous pouvez m'aider....

MERCI