Agrgar datos a Una celde desde una lista

Que tal.

Para que al seleccionar una celda nos muestre una lista

de la misma u otra hoja y la inserte en la celda actual.

1. >> Ver > Barra de Herramientas Formulario.
2. Insertamos un Cuadro combinado.
3. Click derecho sobre él > Formato de Control > Control,
Rango de entrada.
Cuando hayamos seleccionado el rango que quieras que
aparezca como lista, al Cuadro combinado le asignas una
macro que contenga el siguiente código :

Sub selecc_dato()
With ActiveWorkbook.Sheets("Hoja1").DropDowns(1)
If .ListIndex > 0 Then 'Si se ha seleccionado un
elemento
TextoSeleccionado = .List(.ListIndex)
Range("a1") = TextoSeleccionado
End If
End With
End Sub

'Con esto al seleccionar el cuadro, insertará la
información en la celda que especifiques en el código.

A sus órdenes.
Tec. Inf. Sergio A Campos H

Necesito saber como insertar en una celda una lista de
posibles datos a cargar en dicha celda. Los datos los
obtien de una lista creada en otra hoja
Es decir que cuando nos posicionamos en esa celda nos
aparece la lista desplegable.
Gracias
.