Bizarre Error on Looping through Shapes on VBA

Question

I was trying to write a simple code to Loop through all shapes on a worksheet and color the border of each . It worked perfect . Here is the code I used.

Sub Bblu