No add to end of array function

Dim v(1 to 100)
v(ubound(v)) = "value"

would place the value in the last element of the array - but you appear to
be talking about the next empty element and not actually the last element.

Your use of a counter is the way to do it.

Another would be to make the array dynamic and always to a Redim Preserve to
increase the size by 1 and add at the end. However, this is slower.

--
Regards,
Tom Ogilvy


"br_turnbull"
wrote in message
...

I have some VBA code which takes information from checkboxes on a form.
There are 10 check boxes and basicaly i want to go through a series of
if statements whe

if chkBox1 = True
array(0) = "AA"
if chkBox2 = True
array(1) = "BB"

..etc

But obviously this would only work if all check boxes were selected,
how would i go about adding to the end of array no matter how many
values are already stored in it?

I was thinking something like

counter = 0

if chkBox1 = True
array(counter) = "AA"
counter = counter + 1
else
'do nothing
if chkBox2 = True
array(counter) = "BB"
counter = counter +1
else
'do nothing

But was just wondering if there was any kind of add to end of array
function I could call?

Also, is it possible to return the length of an array? i.e how many
values are stored in it?

Thanks in advance


--
br_turnbull
------------------------------------------------------------------------
br_turnbull's Profile:
http://www.excelforum.com/member.php...o&userid=27479
View this thread: http://www.excelforum.com/showthread...hreadid=473304