[COLOR=darkblue]Option[/COLOR] [COLOR=darkblue]Explicit
[/COLOR]
[COLOR=darkblue]Sub[/COLOR] SelectCheckBoxes()
[COLOR=darkblue]Dim[/COLOR] oChBx [COLOR=darkblue]As[/COLOR] CheckBox
[COLOR=darkblue]Dim[/COLOR] sCol [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR]
sCol = "C" [COLOR=green]'change the column as desired[/COLOR]
[COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] oChBx [COLOR=darkblue]In[/COLOR] ActiveSheet.CheckBoxes
[COLOR=darkblue]If[/COLOR] [COLOR=darkblue]Not[/COLOR] Intersect(Range(oChBx.TopLeftCell, oChBx.BottomRightCell), Columns(sCol)) [COLOR=darkblue]Is[/COLOR] [COLOR=darkblue]Nothing[/COLOR] [COLOR=darkblue]Then[/COLOR]
oChBx.Value = [COLOR=darkblue]True[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
[COLOR=darkblue]Next[/COLOR] oChBx
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
[COLOR=darkblue]Option[/COLOR] [COLOR=darkblue]Explicit
[/COLOR]
[COLOR=darkblue]Sub[/COLOR] ToggleCheckBoxes()
[COLOR=darkblue]Dim[/COLOR] oChBx [COLOR=darkblue]As[/COLOR] CheckBox
[COLOR=darkblue]Dim[/COLOR] sCol [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR]
sCol = "C" [COLOR=green]'change the column as desired[/COLOR]
[COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] oChBx [COLOR=darkblue]In[/COLOR] ActiveSheet.CheckBoxes
[COLOR=darkblue]If[/COLOR] [COLOR=darkblue]Not[/COLOR] Intersect(Range(oChBx.TopLeftCell, oChBx.BottomRightCell), Columns(sCol)) [COLOR=darkblue]Is[/COLOR] [COLOR=darkblue]Nothing[/COLOR] [COLOR=darkblue]Then[/COLOR]
[COLOR=darkblue]If[/COLOR] oChBx.Name <> Application.Caller [COLOR=darkblue]Then[/COLOR]
oChBx.Value = IIf(oChBx.Value = 1, -4146, 1)
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
[COLOR=darkblue]Next[/COLOR] oChBx
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
[COLOR=darkblue]Option[/COLOR] [COLOR=darkblue]Explicit
[/COLOR]
[COLOR=darkblue]Sub[/COLOR] Select_Unselect_All_CheckBoxes()
[COLOR=darkblue]Dim[/COLOR] oTopChBx [COLOR=darkblue]As[/COLOR] CheckBox
[COLOR=darkblue]Dim[/COLOR] oChBx [COLOR=darkblue]As[/COLOR] CheckBox
[COLOR=darkblue]Dim[/COLOR] rCol [COLOR=darkblue]As[/COLOR] Range
[COLOR=darkblue]Set[/COLOR] oTopChBx = ActiveSheet.CheckBoxes(Application.Caller)
[COLOR=darkblue]Set[/COLOR] rCol = oTopChBx.TopLeftCell.EntireColumn
[COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] oChBx [COLOR=darkblue]In[/COLOR] ActiveSheet.CheckBoxes
[COLOR=darkblue]If[/COLOR] [COLOR=darkblue]Not[/COLOR] Intersect(oChBx.TopLeftCell, rCol) [COLOR=darkblue]Is[/COLOR] [COLOR=darkblue]Nothing[/COLOR] [COLOR=darkblue]Then[/COLOR]
[COLOR=darkblue]If[/COLOR] oChBx.Name <> Application.Caller [COLOR=darkblue]Then[/COLOR]
oChBx.Value = oTopChBx.Value
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
[COLOR=darkblue]Next[/COLOR] oChBx
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]