sub MoveArticles()
Const ColNum as Long = 1
Dim cnt as long
Dim Art as string
For cnt = 1 to Cells(Rows.Count, ColNum).End(xlup).Row
Art = Left(Cells(cnt,ColNum), Instr(1,Cells(cnt,ColNum)," ")-1)
If lCase(Art) = "the" or lCase(Art) = "an" or lCase(Art) = "a" Then
Cells(cnt,1) =
Right(Cells(cnt,ColNum),Len(Cells(cnt,ColNum))-Instr(1,Cells(cnt,ColNum),"
") _
& Art
End If
Next
End Sub

Change the const ColNum to the column number you want to change

HTH

Die_Another_Day
montreal1775 wrote:
Is there any way to take something like "The Break-up" and change it to
"Break-up, The"? The same applies to the article "a" and "an". Is there
any way to automate the process so I do not have to go back and manually
edit each entry? I'd appreciate any guidance!


--
montreal1775
------------------------------------------------------------------------
montreal1775's Profile: http://www.excelforum.com/member.php...o&userid=36994
View this thread: http://www.excelforum.com/showthread...hreadid=567163