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

Slightly upgraded code in the top comment. Simply select a range and run it, it'll fill all selected cells with checkboxes:

Sub InsertCheckboxes()
    Dim c As Range

    For Each c In Selection
        Dim cb As CheckBox
        Set cb = ActiveSheet.CheckBoxes.Add(c.Left, _
                                    c.Top, _
                                    c.Width, _
                                    c.Height)
        With cb
            .Caption = ""
            .Value = xlOff
            .LinkedCell = c.Address
            .Display3DShading = False
        End With
    Next
End Sub