Estimados, estou tentanto fazer código que exclui a linha procurada, porém nao to tendo exito no processo, alguém consegue me mostrar aonde está o erro?

Obrigado.

Sub Estoque()

Dim nTexto As String

Sheets("Estoque").Select

nTexto = Sheets("Procurar").Range("A1").Value

Cells.Find(What:="nTexto", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Rows("8:8").Select
Selection.Delete Shift:=xlUp
Sheets("Procurar").Select
End Sub