Checkbox1.LinkedCell = ActiveCell "Why wont this work?&

[TimeTraveller - ExcelForums.com]

Have little bit of code that dumps Activex Checkbox on page, sizes i
to fi
in nicely to the ActiveCell. Works beautifully, except I want to mak
th
linked cel the active cel as well, and I really don't want to have t
g
into design mode and do it manually for every checkbox I create. Fo
som
reason this code does not work as I expect. I'm sure theres
fundamenta
principle I am unaware of

Checkbox1.LinkedCell = ActiveCel

Also another question: When dumping the checkboxes on the page, the
ar
incremented by 1..eg Checkbox1, Checkbox2 etc. Seems to me there mus
be a
index somewhere that keeps track of these. How can I refer thes
checkboxe
by their ordinal number programmatically at runtime so that I can d
operations with the checkbox at that time, using the index or th
ordina
part of the string. I could write something to strip the ordinal par
out o
the name, but that seems like a major kluge

 

[Tom Ogilvy]

Checkbox1.LinkedCell = ActiveCell.Address(external:=True)


Dim OleObj as Object
Dim cbox as MSforms.Checkbox
for each OleObj in Activesheet.OleObjects
if typeof OleObj.Object is MSforms.Checkbox then
set cbox = OleObj.Object
or


Dim cBox as MSForms.Checkbox
for i = 1 to 10
set cbox = Activesheet.OleObjects("Checkbox" & i).Object

 

[TimeTraveller - ExcelForums.com]

Bless you Tom
Just what I needed. I am SO grateful