Move Two Shapes In The Same Loop

Hi Guys,

I've read that excel vba is a single thread program. Problem is i'm trying to move two shapes at the same time. Was wondering if the Move shape Do Until Loop on the attached spreadsheet can be changed so shape 1 moves a bit then shape 2 moves a bit so it appears they are moving at the same time. On the attached spreadsheet it is "AnimationTwoShapesVer2" that i have been playing around with. The other catch is both shapes will have different finishing points so when one shape reaches its finishing point the loop will need to continue only moving the other shape.

Thanks Again
Primed

Awesome as usual guys.

Both worked, now the tough decision. Which one do i use

Thanks
Primed