No se si buscas algo como esto, que pone solo en mayúsculas la primera letra de un texto (solo la primera letra de la primera palabra:
Código:
Function PrimeraEnMayusculas(cadena)
PrimeraEnMayusculas = UCase(Left(cadena, 1)) & LCase(Right(cadena, Len(cadena) - 1))
End Function
O si quieres que te ponga en mayúsculas la primera letra de cada palabra que conforma el texto. En este caso, mírate
esta función.
Salu2