Add a checkbox through VBA

[tlindeman]

Good afternoon,
I need to add multiple checkboxes to various cells, my question is how do I do that in VBA? My sheet name is "CHECKLIST" and I need to add it to multiple cells in column A. I found a simlar post ,however that person wanted to add it to every cell in a column, Ineed to add it to specific cells and make the reference to that particular cell.

Thank You
Tony

 

[Gary McMaster]

Hi Tony,

You should be able to change the range in the code you found to address only the cells you're interested in. It doesn't have to be a contiguous block.

Here's a sample.

Gary

Public Sub Test()

Dim oCell As Range
Dim oRange As Range
Dim oCheck As CheckBox

Set oRange = ActiveSheet.Range("A10, A12:A15, A18, A21:A24, A27, A29")

For Each oCell In oRange
    Set oCheck = ActiveSheet.CheckBoxes.Add(oCell.Left, oCell.Top, 80, 15)
    oCheck.LinkedCell = oCell.Offset(0, 2).Address
Next oCell


End Sub

 

[texasalynn]

so is there a condition that determines where the checkboxes should be placed?

 

[tlindeman]

Thank You Gary, that works perfectly.

Tony