Visual Basic para Aplicaciones - primer letra en mayúscula de una frase

Sub nom_propio()

    Dim celda As Range

    For Each celda In Selection

        celda.Value = Application.WorksheetFunction.Proper(celda.Value)

    Next

End Sub

Sub nombres()

Largo=Len(Range(“A1))

‘Si están en mayúsculas las convertimos en minúsculas

mom=Lcase(Range(“A1”)

Convertimos la primera letra en mayúscula de la primera palabra

Nombre=Ucase(Left(nom,1)&Rihgt(mom,largo-1)

For j=2 to largo-1

   If Mid(nombre,j-1)=“ “ Then

       nombre=Left(nombre,j) & Ucsse(mid (nombres+1,1)) & Right (nombre,largo-j-1)

   Enf if

Next j

Range (“A1”)=nombre

end sub