Hi. I want to control shapes with it "Name" properties. (Actually, I don't know there's better way. TT)

For example, I planning to make some Table with Some hotkeys. The point is, The Table should have it Name properties (eg. "Red Square").
Because I want to manipulate it with its Name when I press another hotkey.

I already know that i could give its name, if it is a shape, like this.

Set myDocument = ActivePresentation.Slides(1)With myDocument.Shapes.AddShape(Type:=msoShapeRectangle , _
Top:=144, Left:=144, Width:=72, Height:=72)
.Name = "Red Square"
End With

And I can manipulate it.
For example, I could delete it, like this.

ActivePresentation.Sildes(1).Shapes("Red Square").Delete

However, I really don't know how can I give its name with Table.

Please help me!