Find and Replace - Quickest Option?

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

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)


"Lindsey M" <LindseyM@discussions.microsoft.com> wrote in message
news:0D4EE4B5-87D8-480A-9E68-180A3DE0E8FF@microsoft.com...
> 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