Macro:
Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Private Sub ComboBox1_GotFocus()
ComboBox1.ListFillRange = "DropDownList"
Me.ComboBox1.DropDown
End Sub
Private Sub ComboBox2_Change()
End Sub