Traer datos a un combobox

Hola Elsa,
La parte de definir los datos para llamarlos desde Rowsource funciona excelente
Pero no quiero llamarlos desde ahí, quiero que los traiga de otra hoja para cargar el formulario desde cualquier parte del libro,
la cuestión es que cuando esta parte del código busca el dato; "En negrilla":...
Private Sub ComboBox1_Click()
dato = ComboBox1.Value
rango = "A1:A12"
Set midato = ActiveSheet.Range(rango).Find(dato, LookIn:=xlValues, LookAt:=xlWhole)        ----- comentario ................... [busca el dato en el rango A1:A12,  pero en la hoja activa] ----- comentario ---
If Not (midato) Is Nothing Then
ubica = midato.Address(False, False)
TextBox9.Value = Range(ubica).Offset(0, 1).Value
TextBox10.Value = Range(ubica).Offset(0, 2).Value
End Sub
... Lo hace en la página que se encuentra activa, si cambio de hoja por ejemplo y abro el UserForm en otra hoja diferente no me busca el dato.
¿Cómo se haría para Set midato, busque en una hoja especifica no importa de que hoja se este abriendo el user form?
Gracias por su colaboración y por estar pendiente de mi pregunta.