insert check box to a particular cell through vba macro

Question

I would like to insert the check box in particular cell through macro. For example: On click of a command button i should be able to add the check box to A1 cel

Answer 1

You can use a For Each loop to add the check boxes.

Dim i as Integer
Dim cel As Range
i = 10
For Each cel In Sheets("Pipeline Products").Range("O" & i & ":AG" & i)
    ActiveSheet.OLEObjects.Add "Forms.CheckBox.1", Left:=cel.Left, Top:=cel.Top, Width:=cel.Width, Height:=cel.Height
Next

Hope this helps.