Excel Vba Loop Through Two Dimensional Shapes