Hola amigos una ayuda en el uso de cada una d elas sintaxis del cell.find
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _False).Activate
muchas gracias de antemano