Changing Shapes line color using VBA

Thank you Andy
I tried using a similar piece of code earlier that I found searching the internet, but it was without (1) and of course I had no success. I made changes to my code like so and it now works great.

May I ask a couple quick questions?
1. If I were to add a Rectangle to this same sheet, what would I need to add to include this also?
2. This one might be the tricky one. Is it possible to add a Shape.Glow 11Point

Here's a view of the changes I made.

Please Login or Register  to view this content.

I figured out how to select more than 1 type of shape by using array approach.
I changed this part

Please Login or Register  to view this content.

With this

Please Login or Register  to view this content.

And now I know how to include additional shapes if needed. I still haven’t figured out how to use Glow?

Hi Andy
I was able to get the code to work when using this approach

Please Login or Register  to view this content.

But when I try to select more than one shape at a time using an array I get an error Run-time error ‘13’, type mismatch

Please Login or Register  to view this content.

Any idea what it might be?

Thank you so much for your assistance Andy
Its works great.