Dim Chekbox As OLEObject
Dim i As Integer
Dim Target As Range
For i = 10 To 14
Set Target = ActiveSheet.Range("B" & i)
Set Chekbox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
With Chekbox
.LinkedCell = Target.Offset(0, 1).Address(0, 0)
.Object.Value = False
End With
Next