linkedcell property not working

[blububble83]

i have a lot of checkboxes and i wrote a code to link each checkbox to the cell it is on. However, the cell does not show true or false when i click on the checkbox. Can someone look at my code and tell me what's wrong?

Dim l As Single
Dim T As Single
Dim W As Single
Dim H As Single
Dim i As Single
Dim CB As OLEObject

Worksheets("Products").Select
Cells(1, 1).Activate

'Start inserting checkboxes
i = 2

'check for non empty cells in product column then insert checkbox
Do Until Not Cells(i, 2).Value <> ""

l = Cells(i, 1).Left
T = Cells(i, 1).Top
W = Cells(i, 1).Width
H = Cells(i, 1).Height

Set CB = ActiveSheet.OLEObjects.Add("Forms.CheckBox.1", _
Left:=l, Top:=T, Width:=W, Height:=H)

With CB
.Object.Caption = ""
.Object.Alignment = fmAlignmentLeft
.Object.BackColor = &H80000005
.Object.BackStyle = fmBackStyleTransparent
.LinkedCell = Cells(i, 1).Address
.Placement = xlMove
End With
i = i + 1
Loop

 

[acw]

Hi

Try

Dim l As Single
Dim T As Single
Dim W As Single
Dim H As Single
Dim i As Single
Dim CB As OLEObject

Worksheets("Products").Select
ActiveSheet.Cells(1, 1).Select

'Start inserting checkboxes
i = 2

'check for non empty cells in product column then insert checkbox
Do Until Not ActiveSheet.Cells(i, 2).Value <> ""

l = Cells(i, 1).Left
T = Cells(i, 1).Top
W = Cells(i, 1).Width
H = Cells(i, 1).Height

Set CB = ActiveSheet.OLEObjects.Add("Forms.CheckBox.1", _
Left:=l, Top:=T, Width:=W, Height:=H)

With CB
.Object.Caption = ""
.Object.Alignment = fmAlignmentLeft
.Object.BackColor = &H80000005
.Object.BackStyle = fmBackStyleTransparent
.LinkedCell = Cells(i, 1).Address
.Placement = xlMove
End With
i = i + 1
Loop


Tony

 

[blububble83]

Hi

That didn't work either. I've tried to link the cells manually it's of no use too.

 

[blububble83]

i've solved the problem. Actually there's nothing with my code. I just needed to change my excel style to A1B1 instead of R1C1.

acw, thanks for answering my posts!!!