Lo que hace la siguiente macro es convertir el texto de las celdas, la primera en mayúsculas y el resto en minúsculas (Título)

Sub titulo()
‘El código de esta macro se puede simplicar mucho mas, pero por
‘aspectos académicos se detalla a continuación….
‘*************

‘Definición del rango seleccionado
Dim mirango As Range
Dim elvalor, inicial, resto, MayInicial, MinResto As String
‘ Lee todo el rango
For Each mirango In Selection
    elvalor = mirango.Value ‘obtiene el valor de la celda
    inicial = Mid(elvalor, 1, 1) ‘obtiene la primera letra
    resto = Mid(elvalor, 2) ‘obtiene el resto del texto
    MayInicial = StrConv(inicial, vbUpperCase) ‘ convierte solo la primera letra a mayúsculas ‘ 
    MinResto = StrConv(resto, vbLowerCase) ‘convierte el resto a minúsculas
    mirango.Value = MayInicial + MinResto ‘ combina ambas partes.
Next mirango

End Sub

(Haga clic en el título del POST para dejar comentarios)