sStr = "aa,bb,cc,dd,ee"


j = 0
for i = 1 to 13 Step 3
j = j + 1
sStr1 = Mid(sStr,i,2)
activesheet.OleObjects("Combobox" & j).Object.Value = sStr1
Next

--
Regards,
Tom Ogilvy


"CG Rosén" wrote in message
...
Hi Group,

If I create a textstring like "aa,bb,cc,dd,ee" to find for example *bb* by
"Advanced Filter" (as code), how to cut the joint string back in parts as:
ComboBox1.Text = "aa"
ComboBox2.Text = "bb"
etc. in a "compressed" code?

Hope for some guidance.

Brgds

CG Rosén