VBA to chane worksheet tab color

I have the following code in a Double Click macro. Cells B17 and B18 are marlett checkboxes. I want the tab color to change if either or both cells are checked. If both are not checked I want the tab to be gray.

The code works to change the color, but the color will not change back when I uncheck the cells.

Thanks for your help.

Please Login or Register  to view this content.

Same result. The tab changes color, but won't change back.

That fixed it, thanks.