Help with Find and replace VBA

[aaronr]

Here is my issue. When i run the delete a row in VBA my find and replace code in VBA stops working. I looked thought all different find and replace Code and all do the same thing. Has any one easel ran into this issue or may be try different delete row code.

My delete row code -
Sub DeleteRowsWithFIREPROTECTIONInColumnE()
Columns("E").REPLACE "*FIRE PROTECTION*", "#N/A", xlWhole, , False, , False, False
On Error Resume Next
Columns("E").SpecialCells(xlConstants, xlErrors).EntireRow.Delete
On Error GoTo 0
End Sub


Sub ADDED_SHEET ()
With ThisWorkbook
.Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "test"
End With
Worksheets("Master sheet List").Range("A17:G1597").Copy
Worksheets("test").Range("A2").PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
ActiveSheet.Columns("B").REPLACE _
What:="test", Replacement:="fast", _
SearchOrder:=xlByColumns, MatchCase:=True
End Sub

 

[yky]

Instead of "Columns("E").SpecialCells(xlConstants, xlErrors).EntireRow.Delete", try "Cells(xlConstants, xlErrors).EntireRow.Delete".

 

[aaronr]

That version did the same thing. Wrote a different code that worked for me. Thanks for your help.

 

[Fluff]

For reference
When using replace, xl remembers your settings.
In your 2nd code you don't set the Lookat parameter, therefore xl will use the previous setting. In this case if you have already run the 1st code Lookat will be xlWhole, whereas the default is xlPart