Ještě jeden dotaz, jak udelat tohle v cyklu:
ActiveSheet.ComboBox1.ListIndex = 0
ActiveSheet.ComboBox2.ListIndex = 0
ActiveSheet.ComboBox3.ListIndex = 0
...
ActiveSheet.ComboBox31.ListIndex = 0