This does it all from code -
Sub SplitByUcase()
Dim rawText As String
Dim RowOffset As Long
Dim CC As Integer ' Character Counter
'presume text is in Column A
'continuous from top to end of list
'put first name in B, Last name in C
RowOffset = Range("A65536").End(xlUp).Row - 1
Do While RowOffset >= 0
rawText = Range("A1").Offset(RowOffset, 0)
If Len(rawText) > 1 Then
For CC = 2 To Len(rawText)
If Mid$(rawText, CC, 1) < "a" Then
'we have found it
Range("A1").Offset(RowOffset, 1) = Left$(rawText, CC - 1)
Range("A1").Offset(RowOffset, 2) = Right(rawText,
(Len(rawText) - CC) + 1)
Exit For
End If
Next
End If
RowOffset = RowOffset - 1
Loop
End Sub

"drewannie" wrote:

>
> Please advise on how to separate a text string that has no delimiters?
> The cells contain names without spaces or commas in this format:
> FirstnameLastname. The result I want is two columns with firstname in
> one and lastname in the second column. The only thing distinguishing
> the two desired fields within the string is an upper case letter at the
> beginning of first and last names.
>
> Thanks!
>
>
> --
> drewannie
> ------------------------------------------------------------------------
> drewannie's Profile: http://www.excelforum.com/member.php...o&userid=36079
> View this thread: http://www.excelforum.com/showthread...hreadid=558657
>
>