Hi,

Using for each ctl in me.control you are already inside your form.
So this should work:

activecell.value = ctl.value

Excel 2000 does not give the wanted reply on typename(ctl)
so I created this

Dim ctr As ComboBox
'
For Each ctr In Me.Controls
On Local Error Resume Next
ActiveCell.Value = ctr.Text
ActiveCell.Offset(1, 0).Select
Next

and this works fine.

Hoop that helps