Create a macro to do it. Here is the code to use:

Sub the()
    Dim n As Integer
    Dim temp As String

    n = 1
    temp = Range("A" & n).Value
    Do While (temp > "")
        If UCase(Left(temp, 4)) = "THE " Then
            temp = Mid(temp, 5)
        End If
        Range("A" & n).Value = temp
        n = n + 1
        temp = Range("A" & n).Value
    Loop
End Sub

Peter
------------------
The NoSpin Group
[log in to unmask]


-----Original Message-----
In the first column I have the artists names. Many of these begin with
the word 'the' and I would like to remove it but keep the word 'the' if
it appears mid sentence.

TIA ... Mick

             PCSOFT maintains many useful files for download
                     visit our download web page at:
                  http://freepctech.com/downloads.shtml