Excel - preguntar x contenido

Hola amigos de LWP como pregunto y defino una variable????? tengo un archivo de excel con tres hojas, en la hoja1 en la columna A tengo varios nombres, pero lo que requiero realizar es una macro en la hoja2 donde pregunte x los nombres de la hoja1 y ejecute una accion ....... ejemplo.... en la hoja1 en la celda A2 tengo el nombre Jorge Chavez, en la macro de la hoja2 pongo lo siguiente
dim nombre as string
nombre = hoja1!A2
select case nombre

Dim sNombre As String
sNombre = Range("Hoja1!A2").Value
sNombre = UCase(Trim(sNombre)) '//Quita espacios extremos y pasa a mayúsculas
Select Case sNombre
Case "JORGE CHAVEZ":
MsgBox "jc"
Case "PEDRO":
MsgBox "p"
End Select

Saludos, desde Baires, JuanC

Muchas gracias amigo Juan.....y saludos de tu amigo Jorge desde Chihuahua, Méx.