Excel - comparar

Buenos dias,
Alguien podria decirme como hago para realizar lo siguiente,
Tengo una hoja con nombre y valor ejem:
nombre: panela valor: 10000
nombre:janbon valor:5000

en otra hoja llamo una lista con los nombres como hago para cuando selecciones panela me llame el valor de esta.

Agradezco de antemano si alguien sabe.

dato=cells(1,2) 'esta celda es el nombre que quieres buscar en la otra hoja
Sheets("hoja1").Select 'seleccionas la hoja donde están los nombres y valores
bor = Cells(Rows.Count, 1).End(xlUp).Row 'cuento hasta el ultimo valor de la tabla nombre
For x = bor To 2 Step -1
If Cells(x, 1) = dato Then
datovalor =cells(x,2) 'aqui guardas el valor que quieres
end if
Next
Sheets("hoja2").Select 'vas a la hoja donde quieres guardar el valor
cells(1,3)=datovalor 'guardas el valor en la celda que quieras

MUCHAS GRACIAS POR TU APORTE AMIGO