Range Replace

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
Try something more like this...

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

conso macro 0
If Cells.Find returns run-time error '91': Object variableor With block variable not set 1
Error for a replace. It replace ALL instead of selected column 2
find and replace multiple values in one statement 3
Macro to select columns and replace data 6
On error goto specified Line 6
Need help with a "If" "Else" VB code 4
Data Cleanse Macro Running Very Slow 0

Back
Top