Sr. Dante.
Su repuesta funciona bien, pero lo adapte a un procedimiento y no me funciona, muestra el mensaje:
“Se ha producido el error ‘424’ en tiempo de ejecución:
Se requiere un objeto”
No se de que se trata.
Anexo Procedimiento.
Sub Eliminar()
OrdenFind = 35
EndRowHist = 63
NroOrden = "E35999"
Set OrdenFind = Workbooks("HistInvtrio.xls").Worksheets( _
"HistInvt").Columns("A").Find(what:=NroOrden)
For DelFact = OrdenFind To EndRowHist
Set CeM = Workbooks("HistInvtrio.xls").Worksheets("HistInvt").Cells( _
DelFact, 1)
If CeM = OrdenFind Then
Workbooks("HistInvtrio.xls").Worksheets("HistInvt").Rows(DelFact).Delete
End If
Next DelFact
End Sub
Nota: Antes de ejecutar el procedimiento, ya he abierto el Archivo “HistInvtrio.xls”
Saludos.