Combobox add large range of cells
 

I have placed a Combobox(ActiveX) on a worksheet(Sheet2), but now i want to
populate it will all the values(that are not blank) in Sheet3 between
range("A2:A25000").

How do i do this without manually do this:

Combobox1.Additem Sheet3.Range("A2").value
Combobox1.Additem Sheet3.Range("A3").value
.....
.....
and so on?

Corey....