Find and Replace - Quickest Option?

[Lindsey M]

Hi, in a previous post, I asked how could I delete data that was duplicated
over and over in a report that has approx 17,000 rows. It was suggested I do
a Find and Replace on these items. I've done this on one of the fields and it
does take a while to execute. Because there is approx 20 odd things that I
want to Find and Replace (with "" so they are then empty cells), this is
going to take quite a long time.

Has anyone got any suggestions on how I could speed this process up?

I have this for one field:

Columns("A:A").Select
Selection.Replace What:="Evaluation Overview Report cont.", Replacement:="" _
, LookAt:=xlPart, SearchOrder:=xlByRows
Columns("A:A").Select
Selection.Replace What:="Filter: Contact Birmingham", Replacement:="" _
, LookAt:=x1Part, SearchOrder:=x1ByRows

Also, anyone know the code to replace the above (say Filter: Contact
Birmingham with a field that will be say "Generated: Mar 03 2005" Where the
date will change) - is it possible to search on a field where only the first
five letters are taken into account?

Any help would be greatly appreciated,
Cheers
Linds

 

[Bob Phillips]

A bit better

Columns("A:A").Replace What:="Evaluation Overview Report cont.",
Replacement:="" _
, LookAt:=xlPart, SearchOrder:=xlByRows

sWhat = "Generated " & Format(TheDate, "mmm dd yyyy")
Columns("A:A")..Replace What:="Filter: Contact Birmingham", Replacement:=""
_
, LookAt:=x1Part, SearchOrder:=x1ByRows


--

HTH

RP
(remove nothere from the email address if mailing direct)