¿Cómo podría llenar al combo desde la función o tener un mejor procedimiento?

Tengo un multipage con 5 páginas
Cada una tiene al menos 2 combos que actualizan sus listas (que son rangos de hojas) con el evento enter.
Para esto he escrito una función que me devuelve el address de la ultima celda de la columna:
'****************************
el evento que actualiza al combo
'****************************
private ComboBox1()
LlenarCombo "hoja1" ,"a1"
' y el remedio casero:
combobox1.rowsource = activecell(xldropdown).text
activecell(xldropdown).clearcontents
end sub
'*****************************
y mi funcion
'*****************************
puclic function LlenarCombo(byval hoja as string, byval RangoInicio as string)
sheets(Hoja).activate
range(RangoInicio).activate
if activecell(xldropdown).text = ""
then msgbox "el campo esta vacio...
deseas ingresar datos ahora???" 'y
botones, titulo, etc
else
Selection.End(xlDown).activate'activo la ultima celda con datos
'****************
'Como no se llenar el combo desde esta funcion, hago lo siguiente:
'****************************
activecell(xldropdown).text = _
replace activecell.address, "$", ""
end function
1-como podria llenar al combo desde la funcion o tener un mejor procedimiento?
2-¿Es posible escribir en libro cerrado o es necesario tenerlo abierto?
3-¿Qué código necesitaría para que el statusbar de mi form muestre el texto del statusbar de excel?