I realised that and corrected my code. See my comments

The problem is not that the logic was wrong but that selecting all the shapes only appears to see the InlineShapes. Not really a problem, just one of those things.

By the way the Case statement can take multiple arguments. Which is why I replaced nested if then statements with select case.

But thanks

Nick

Hi

Thanks for your time.

Nick

Sorry have posted as an answer instead of a reply the answer is yes

I realise there is a logic error in line 33 Which should read

Case 1,3

But it makes no change to the problem.

Nick