VBA to color All Shapes in a Range

[jhall488]

Hi All,

I am looking to change the color of all shapes with a range when another shape is clicked.

For example i have a shape that is in D9 and when i click it, it changes color but I also have shapes in I9 and J9 that i also need to change color.
I only want to change the color of the 2 shapes in the same row but not any further than +6 columns.

I determine the row and column of the original shape based on:

ActiveSheet.Shapes(name).TopLeftCell.Row
ActiveSheet.Shapes(name).TopLeftCell.Column

Thank you very much for your help.