I can't get the linkedcell to work on my checkbox. This is the procedu

Sub addcheckbox()
Dim cboxname As Integer
Dim cell As Range
Dim chk As Excel.CheckBox
Set cell = ActiveCell
Set chk = cell.Parent.CheckBoxes.Add(cell.Left, cell.Top, cell.Width,
cell.Height)
chk.Height = cell.Height - 1.5
cboxname = ActiveCell.EntireRow.Cells(8)
chk.Characters.Text = "Add to Estimate"
chk.Name = "Checkbox" & cboxname
chk.Value = xlOff
chk.LinkedCell = ActiveCell.EntireRow.Cells(3)
ActiveCell.Select

End Sub