Opdele navne og efternavne der står sammentrukket i en celle?

Marker cellerne med navne, og kør denne makro

Public Sub FindEfternavn()
    For Each c In Selection
        For i = 2 To Len(c)
            If Mid(c, i, 1) = UCase(Mid(c, i, 1)) Then
                c.Value = Left(c, i - 1) & " " & Right(c, Len(c) - (i - 1))
                Exit For
            End If
        Next
    Next
End Sub

Jeps tak..
men den tager ikke højde for for-, mellem- og efternavne på én gang og heller ikke fx Anne-GretheVinniePoulsen, der vil den nok dele ved bindestregen jo.

Mvh

PS. kan det også laves med en funktion i excel?

Eller Spurgt på en anden måde:

Hvordan fjerner man mellemrummene mellem navne, Peter Hansen (i én celle) så der står PeterHansen (i én celle)?

Fjern mellemrum =UDSKIFT(B1;" ";"")

indsæt mellemrum, som Funktion

Public Function IndsætMellemrum(C As Range)
For i = 2 To Len(C)
            If Mid(C, i, 1) = UCase(Mid(C, i, 1)) Then
                IndsætMellemrum = Left(C, i - 1) & " " & Right(C, Len(C) - (i - 1))
                Exit For
            End If
        Next
End Function


Men den indsætter kun foran første store bogstav ,efter 1 tegn

Er det nemmeste ikke bare at markere den kolonne du vil arbejde med, gå i søg-erstat, lav et "mellemrum" i søg og undlad at skrive noget i erstat?

TAK
Til jer begge!!!

tak for point