Try something more like this...

Range(ActiveCell, ActiveCell.Offset(2, 0)).EntireRow.Replace _
What:=Range("AB28"), _
Replacement:="", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False
--
HTH...

Jim Thomlinson


"Rewop Eilsel" wrote:

The following macro works well as two seperate halves but fails when joined
together
Range(ActiveCell, ActiveCell.Offset(2, 0)).Select
Selection.EntireRow.Select.Replace What:=Range("AB28"), _
Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

The first half works, but the second half (from "Replace...") comes back
with the comment "Run Time Error 424" & " Object required", can anyone please
help?

Rewop Eilsel