Cell Background Colour Not Being Identified

[Ark68]

Please consider this code:

 Sub singlesegment()
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    With ws_form
        With segtar
            If .Interior.Color = ccgreen Then .Cells.Interior.Color = xlNone
            If .Interior.Color = xlNone Then .Cells.Interior.Color = ccgreen
        End With
    End With
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

'setgar' is a publicly declared Range variable equal to the value of target acquired in another worksheet's 'SelectionChange' event. With this code, when that cell is selected, I wish to change it's fill colour based on it's state when selected. If the cell interior is green, it clears the cell of any colour. If it's clear of colour, it sets it green. (ccgreen is a custom colour)

However, it's not working. When I step through the code, it fails to identify the colour of the cell interior, so no actions are taken.

Where is my error?

 

[Ark68]

I've provided my file for anyone that would like to try it out to see if they can narrow down the issue. Feel free to check it through.
Open file, and complete the login. Employee Number: 00000, password: Demo, Equipment number: 709.
Then click the next series of empty boxes that appear. The last box on MapMe5 is "Submit Accomplishment". Click this.

In the form, click "[01-18]" (cell H8). It will change green. Doing this creates a sublist of "segments" in rows 9 through 18, which are hidden.
To reveal the hidden segment row, press the "[+]" (cell E8). This will reveal the hidden rows. The cells H8-H18 (segement select cells) will be green. They turned green when H8 was clicked.
Press H8 again and all select cells (H8-H18) will turn white.
Press H8 again to toggle them ON (green) again.
Now, click one of the segemnt select cells (H9-H18). My code is supposed to toggle just that segment selection ON (green) and off (white) as it's clicked. In my testing, it isn't.

I hope this helps.

File is here.

 

[Fluff]

The problem is that in the "allsegments" code you are only applying the fill colour to col H, but then in the "singlesegment" code you are checking both cols H & I

 

[Ark68]

Thank you Fluff. Normally once you give me the nudge I seem to be able to figure out the solution. This one is kinda evading me.

in the "singlesegment" code you are checking both cols H & I

Is this because it's relying on segtar, a range of $H#:$I# ? If so, how can I reduce "segtar" to just the $H# ? (Assuming of course this is the path to the solution)

 

[Fluff]

You could use

        With segtar.Resize(1, 1)

in the singlesegment sub

 

[Ark68]

Thank you so much Fluff, I would never have found the issue let alone the solution. I need to do some research on 'resize'.
You saved my day!

 

[Fluff]

Glad we could help & thanks for the feedback.