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


--
regards,
Tom Ogilvy


"TimeTraveller - ExcelForums.com"
wrote in message ...
Have little bit of code that dumps Activex Checkbox on page, sizes it
to fit
in nicely to the ActiveCell. Works beautifully, except I want to make
the
linked cel the active cel as well, and I really don't want to have to
go
into design mode and do it manually for every checkbox I create. For
some
reason this code does not work as I expect. I'm sure theres a
fundamental
principle I am unaware of.

Checkbox1.LinkedCell = ActiveCell

Also another question: When dumping the checkboxes on the page, they
are
incremented by 1..eg Checkbox1, Checkbox2 etc. Seems to me there must
be an
index somewhere that keeps track of these. How can I refer these
checkboxes
by their ordinal number programmatically at runtime so that I can do
operations with the checkbox at that time, using the index or the
ordinal
part of the string. I could write something to strip the ordinal part
out of
the name, but that seems like a major kluge.
---------
Message sent via www.excelforums.com