Macro to select a range of checkboxes

I'm looking to create a macro to select a range of highlighted checkboxes. For example I have checkboxes in cells A1:A100 and want to select the checkboxes in A50:A100 and not the rest. I would highlight (left click A50 then shift click A100 to highlight them). Below is what I have so far, but it only selects the last checkbox not all that are highlighted. Any ideas what I'm doing wrong? If I change ".Select" to ".Delete" it will delete all checkboxes highlighted, but not select


Sub Select_Checkboxs()
Dim r As Range
Dim chkbx As CheckBox

Set r = Selection

For Each chkbx In ActiveSheet.CheckBoxes
If Not Intersect(r, chkbx.TopLeftCell) Is Nothing Then chkbx.Select
Next chkbx

End Sub

No I don't want them checked I just want them selected so I can delete, move, etc.

If I select 30 or less checkboxes it seems to work. However, if I try more I get error 400.

It works perfectly, thank you.