Renombrar cuadros de texto en Power Point

A ver si esto te sirve

ActiveWindow.Selection.SlideRange.Shapes("Text Box 1").Name = "Texto Flecha"

Suerte
Nilda Beatriz Díaz
MS - MVP
Desde el tercer planeta a partir del Sol

"Salvador Sarabia Orea" escribió en el mensaje news:016601c34d62$26b00730$
¿Alguien sabe cómo renombrar un cuadro de texto en Power
Point?
Es decir, cambiarle el nombre predeterminado, por
ejemplo, cambiar de "Text Box 1" a "TextoFecha".
Cualquier orientación será bien recibida