VBA code comboboxes (skip blanks & avoid repeats)

[pbobadilla]

1. do not use the property 'listfillrange.
2. remove the values in the property 'listfillrange' in each combobox first.
3. Next step; use:

[vba]
Private Sub Workbook_Open()
Sheets("Tr-metric Pg2").ComboBox1.List = Filter([Transpose(If('CTC-Form'!BJ12:BJ21="","~",'CTC-Form'!BJ12:BJ21))], "~", False)
for j=2 to 50
Sheets("Tr-metric Pg2").OleObjects("ComboBox" & j).Object.List = Sheets("Tr-metric Pg2").ComboBox1.List
next
End Sub
[/vba]

. Still not working for me. I removed all the list fill ranges for each combo box. Then I pasted this code into the general code section of the VBA window for sheet TR-Metric Pg2. What am I doing wrong?

Thanks,

Pablo