VBA issue - trying to separate words with CAPITALS from Proper words

Thought it was already there... Anyways, here are the functions:
----------------------- first function -------------------

Option Explicit
Option Compare Binary

Function RemoveCaps(c As Range)
Dim Individual() As String, keeper As String
Dim i As Integer, j As Integer, k As Integer
Dim allCaps As Boolean

Individual = Split(c)
k = 0
For i = 0 To UBound(Individual)
allCaps = True
For j = 1 To Len(Individual(i))
If Not Mid(Individual(i), j, 1) Like "[A-Z]" Then
allCaps = False
keeper = " " & keeper & Individual(i) & " "
Exit For
End If
Next j
Next i
RemoveCaps = Trim(keeper)
End Function

------------------------------------------------ second function ---------------------------


Option Explicit
Option Compare Binary

Function RemoveProper(c As Range)
Dim Individual() As String, keeper As String
Dim i As Integer, j As Integer, k As Integer, m As Integer
Dim allCaps As Boolean

Individual = Split(c)
k = 0
m = 0
For i = 0 To UBound(Individual)
allCaps = False
For j = 1 To Len(Individual(i))
If Not Mid(Individual(i), j, 1) Like "[A-Z]" Then
If Not Mid(Individual(i), j, 1) Like "-" Then
allCaps = True
m = m + 1
Exit For
End If
End If
Next j
Next i
For i = m To UBound(Individual)
allCaps = False
For j = 1 To Len(Individual(i))
If Mid(Individual(i), j, 1) Like "[A-Z]" Then
allCaps = True
keeper = " " & keeper & Individual(i) & " "
End If
Exit For
Next j
Next i
RemoveProper = Trim(keeper)
End Function

Try this

Please Login or Register  to view this content.

Another one...

Please Login or Register  to view this content.

Try

Please Login or Register  to view this content.

Nice jindon.

Thanks....

Thanks guys, but still doesn't work for a particular case:
Jean-Christophe BASSON-LARBI


If the name with capital letters has a "-", it returns all the name. If I replace the - with a space, it works just fine. So, how can we include the "-" in the [A-Z] range?

My bad. Thanks a lot guys. jindon's code works just perfect. It was an error on my end.