VBA - Change color of rectangle shape when column is hidden/unhidden

[alexfooty]

Hi
I have a rectangle shape ("Rectangle 6") which runs a simple macro that hides/unhides a column (Col P).

Range("P1").EntireColumn.Hidden = Not Range("P1").EntireColumn.Hidden

What I would like to do is, when the column is hidden the colour of the rectangle shape is green rgb(0, 176, 80)
and when the column is not hidden, the shape colour is red rgb(255, 0. 0).

Any help would be greatly appreciated.

 

[Fluff]

How about

Sub alexfooty()
   With ActiveSheet.Shapes(Application.Caller).Fill.ForeColor
      .RGB = IIf(.RGB = RGB(255, 0, 0), RGB(0, 176, 80), RGB(255, 0, 0))
   End With
End Sub

 

[alexfooty]

Fluff - thank you so much for your quick reply which works perfectly - exactly what I needed.
Many thanks

 

[Fluff]

You're welcome & thanks for the feedback.