assign macro using vba

[Dharris144]

i have a sheet with a hundred check boxes. Can someone help with a VBA script to assign the same macro to all checkboxes on current sheet?

 

[wellsr]

Are they Form Control check boxes or ActiveX check boxes?

 

[Dharris144]

Sorry I should have mentioned they are form control

 

[wellsr]

My apologies for the slow response. This macro will loop through all the form control check boxes on the active sheet and assign their action to a macro titled "Test" in Module1.

Sub AssignCheckboxMacro()
Dim cb As Shape
  For Each cb In ActiveSheet.Shapes
    If cb.Type = msoFormControl Then
      If cb.FormControlType = xlCheckBox Then
        cb.OnAction = "[COLOR=#ff0000]Module1[/COLOR].[COLOR=#ff0000]Test[/COLOR]"
      End If
    End If
  Next cb
End Sub

You can change the name of the macro and the module name to match your target macro information.

 

[Dharris144]

You sir are a genius. I really appreciate the help

 

[wellsr]

No problem, Dharris144 - happy to help!