Mayusculas en la primera letra

Que tal Alejandro:
Checa este codigo, haber si te sirve,.. saludos..


Sub CambioDeLetras()
Dim Cambio As Variant, Celda As Range
Application.ScreenUpdating = False
Select Case Range("a1")
Case 1: Cambio = vbLowerCase
Case 2: Cambio = vbProperCase
Case Else: Cambio = vbUpperCase
End Select
For Each Celda In Selection.SpecialCells(xlCellTypeConstants,
xlTextValues)
Celda = StrConv(Celda, Cambio)
Next
End Sub


Jesús Peralta
Hermosillo, Sonora, Mexico
el_ultimo_profeta"alt+64"hotmail.com

"Alejandro Garcia" escribió en el mensaje
news:

¿Como puedo hacer para que una frase en minuscula, me quede luego de
una instruccion con las primera letras en mayusculas nada mas?, pero no
lo quiero con una solo instruccion. Yo se que hay una instruccion que
la realiza en Visual Basic 6 pero no me sirve esa. Deseo si es posible
hacer una rutina.

Gracias.