Visual Basic para Aplicaciones - Función Cells.Find

Hola, saludos a todos, tal vez alguien pueda ayudarme, estoy tratando de hacer una pequeña aplicación para en el trabajo que pueda agilizar algunos procesos, sin embargo me he atorado en lo siguiente:

Cells.Find(What:="PIERNA DE RES HORNEADA PARA SALSEAR", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
Sheets("PIERNA DE RES HORNEADA ").Select
Cells.FindNext(After:=ActiveCell).Activate

al grabar la macro registra este codigo, sin embargo en el parametro "What" requiero que el valor sea variable de acuerdo al valor que se encuentre en la celda "E7", ¿cómo puedo hacer eso?

Cells.Find What:=Range("E7").Value