Sub aa()
Dim CB As Excel.CheckBox
Dim R As Range
Dim i&
For i& = 1 To 150
Set R = ActiveSheet.Range("a" & i& & "")
Set CB = ActiveSheet.CheckBoxes.Add(R.Left, R.Top, R.Width, R.Height)
CB.Text = ""
CB.LinkedCell = R.Offset(0, 1).Address
Next i&
End Sub