Have a go at:
Code:
dim ctr As Iterger
dim cbobx As String
Set ctr = 1
Set cbobx = "ComboBox" & ctr
do while ctr <= 20
me.cbobox.value = "I am box" & ctr
ctr= ctr + 1
loop
Don't have time now to try it out, but let me know if it doesn't wor and I'll have a go again, later, to try again.