Hola! plambreton. Intenta con:
Código PHP:
Sub EliminaReceta_2()
On Error Resume Next
Sheets("INFO RECETAS").Cells.Find(What:=Range("D3"), LookIn:=xlFormulas).EntireRow.Delete
Sheets("INFO PREP").Cells.Find(What:=Range("D3"), LookIn:=xlFormulas).EntireRow.Delete
End Sub
¿Te sirve la idea?...
Saludos, Cacho R.