checkbox
 

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

checkbox
 

You need to set it to the cell address:

chk.LinkedCell = ActiveCell.EntireRow.Cells(3).Address


--
Hope that helps.

Vergel Adriano


"ranswert" wrote:

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

checkbox
 

that was easy
Thank You

"Vergel Adriano" wrote:

You need to set it to the cell address:

chk.LinkedCell = ActiveCell.EntireRow.Cells(3).Address


--
Hope that helps.

Vergel Adriano


"ranswert" wrote:

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