Morning John, this works brilliantly thanks!

I've actually need 4 boxes on (most of) my slides

I've tried to amend code to .right and .bottom but macro is not happy, are you able to help with this too?

.Left = cm2Points(7) - .Width / 2
.Top = cm2Points(7) - .Height / 2

You've been a huge help thank you

Andy