Color Toggle

[The Animal]

Hi.
I would like to create a toggle button but instead of selecting the columns to toggle (as per below "Range("D:E").Columns.Hidden = Not Range("D:E").Columns.Hidden") I would like to toggle on cell color so then you can quickly fill and unfill the cells in row 1 and toggle would use a color value rather than pre-determined columns.
If we use color below RGB
Red: 204
Green: 255
Blue: 204

Sub TogglePartNo()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True
Range("D:E").Columns.Hidden = Not Range("D:E").Columns.Hidden
End Sub

Any help would be great
Thanks Stephen

 

[offthelip]

I am not quite sure what you want but this will toggle a color on and off

Sub test()

  
 tst = Range(Cells(1, 4), Cells(1, 5)).Interior.ColorIndex
 If tst = 35 Then
 Range(Cells(1, 4), Cells(1, 5)).Interior.ColorIndex = 0
 Else
 Range(Cells(1, 4), Cells(1, 5)).Interior.ColorIndex = 35
 End If
 
End Sub

 

[The Animal]

Thanks for your help
My meaning was that lets say you fill color D1,F1 and H1 with the above fill color then if you run toggle based on that fill color those coloumns will hide and unhide?

 

[offthelip]

try something like this ( untested)

Sub test()

lastcol = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To lastcol
 tst = Range(Cells(1, i), Cells(1, i)).Interior.ColorIndex
 If tst = 35 Then
 Range(Cells(1, i), Cells(1, i)).Columns.Hidden = Not Range(Cells(1, i), Cells(1, i)).Columns.Hidden
 Else
 Range(Cells(1, i), Cells(1, i)).Columns.Hidden = False
 End If
Next i
End Sub