You don't need vba, assuming all of the book title formats are the same, i.e.
"The " is the first 4 characters of the title (including the space) you can
use the following formula and just copy down to the end of your list:

=IF(LEFT(A1,4)="the ",CONCATENATE(RIGHT(A1,LEN(A1)-4),", The"),A1)

--
David Billigmeier


"Edye" wrote:

> Excel 2003
> I have a list of books. About 700 contain a "The" at the beginning. I need
> to add ", The" (without quotes) to the end of each one of those book titles
> and remove the "The" at the beginning of the title. I recorded a Macro for
> it, but each time I use the Macro, it replaces the other cells with the title
> of the one which I recorded. Thanks!