Chart: unique colour for single bar based on cell value

[Gem1979]

Hi, hoping someone may be able to help or advise on the correct search term I should use to find out how to do the following. I have three simple column charts based on tables, all formatted in the same colour.

The horizontal axis labels are hidden on purpose.​

I would like to be able to pick out one column on each chart for the same axis label. Ideally from a cell value or dropdown that another used can edit. So all the columns would be dark blue except for the one axis label selected. I can do this manually (as I did in the examples below) but have 3 charts that would each need amending 29 times on a regular basis. Any suggestions much appreciated. I hope I have uploaded the charts correctly as the first time I've asked a chart related question.

 

[onlyadrafter]

Hello,

have assumed the graphs are named Chart 1, Chart 2 and Chart 3 and the required column is in cell D1.

How is this for a start?

Sub CHANGE_ONE_GRAPH_COLOUR()
    For MY_CHART = 1 To 3
        ActiveSheet.ChartObjects("Chart " & MY_CHART).Activate
        ActiveChart.SeriesCollection(1).Interior.ColorIndex = 11
        ActiveChart.SeriesCollection(1).Points(Range("D1").Value).Interior.ColorIndex = 34
    Next MY_CHART
End Sub