My code ends as follows.

Range(Cells(1, 2)).Select ' cell on which
combobox is positioned
ActiveCombo.AddItem "'Free Type' Entry"
ActiveSheet.ComboNAME.DropDown
End

if i move mouse over items in list, they are selected, but if i use arrow
keys the cell selection moves
What i need is for the arrow key to work when combobox is dropped down and
activecell to move when combobox is close.

Can someone help please