Try something Like this:

Sub ParseString()
Dim S As Variant
Dim r As Range
Dim c As Integer
Dim N1 As String
Dim N2 As String

c = 1
For Each S In Range("A1:A4000")
N1 = Left(S, 7)
N2 = Right(S, 2)
Cells(c, 2) = "'" & N1
Cells(c, 3) = "'" & N2

c = c + 1
Next S
End Sub
Derick



Les Stout wrote in message ...
Thanks very much Chip, a further question to that.
The column has approx. 4000 parts in it would it be better to loop it
down? or do you have a better suggestion. I am wanting to do it
automated, running in the background.

Your assistance is much appreciated.

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!