Insertar texto siempre en mayusculas

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
el único método que conozco es utilizar una fuente en que las letras siempre
sean en mayúsculas, no recuerdo ninguna ahora, pero solo con mirar en las
fuentes de Windows encontrarás alguna.

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

Emilio escribió el 12/10/2012 19:33 :

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
el único método que conozco es utilizar una fuente en que las
letras siempre
sean en mayúsculas, no recuerdo ninguna ahora, pero solo con mirar en
las
fuentes de Windows encontrarás alguna.

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

Gracias Emilio por tu interes, pero navegando por internet, el tio google me dio esta opcion, que inserto en el objeto de excel que quiero que se ejecute, y todo lo que escriba en el rango de celdas que especifiques aparecera en mayusculas, sin importar la fuente que tenga seleccionada.
Aqui te dejo el codigo, por si en alguna ocasion lo necesitas, solo tines que abrir el editor de visual basic, y en el explorador de proyectos, seleccionas la hoja donde quires que se ejecute el codigo, y lo pegas, funciona de maravilla.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set rgColA = Range("Rango de celdas")

Dim rg As Range

For Each rg In rgColA.Cells

rg.Value = UCase(rg.Text)

Next
End Sub

Te agradezco mucho el interes en mi consulta.