insert check box to a particular cell through vba macro

I would like to insert the check box in particular cell through macro. Kindly advise on how to go about.

For Example: on click of a command button i should be able to add the check box to "A1" cell.

Sheets("Pipeline Products").Range("O"& i & ":AG"& i).Select 
ActiveSheet.CheckBoxes.Add(4, 14.5, 72, 17.25).Select 

With Selection 
.Caption = "" 
.Value = xlOff '
.LinkedCell = "C"& ToRow     
.Display3DShading = False 
End With 

Thank you, Prashanth