You need to say how to identify the shape to be changed.

Name?
Position?

Also you can probably remove the .Select (x4) it is almost certainly doing nothing at all except slowing the code.