You can avoid more....
The months have been introduced by Excel itself; use them
If populating multiple item use the method List.(It's also considerably faster).
If using List you don't need the instruction Clear.
This will produce the same result
Private Sub UserForm_Initialize()
ComboBox1.List = Split("ADARO|BERLIAN LAJU TANKER|PT MEDCO|RAJAWALI GROUP|RISJAD GROUP(BERAU)|SAMPOERNA GROUP|STRAITS ASIA RESOURCES / STRAITS RESOURCES LIMITED|TR/BS GROUP|FIRST GEN|JG SUMMIT / GOKONGWEI|PSALM|SALIM / FIRST PACIFIC|SAN MIGUEL|SM GROUP|HONG LEONG GROUP|SIME DARBY GROUP|UMW Group|USAHA TEGAS GROUP|GUNUNG BAYAN|NOBLE|OLAM|WILMAR", "|")
ComboBox2.List = Application.GetCustomListContents(3)
ComboBox3.List = Array(2010, 2011)
End Sub
Bookmarks