como hacer que una celda titile en excel

Hola, Misael !

... hacer que una celda titile en excel ... similar a ... word con un texto.

==> -p.e.- Usando el siguiente codigo [creado por Bill Manville]

Notas: 'mientras' se este ejecutando el codigo ...
a) 'perderas' el 'beneficio' del 'UnDo' [deshacer] :((
b) veras un [ligero?] 'parpadeo' en la ventana de la aplicacion [NO se puede 'evitar'] :((
c) [seguramente] notaras una [ligera?] 'desaceleracion' en el rendimiento :((
[sobre todo, si hay 'bastantes' celdas con ese 'efecto']
Si [aun asi] quieres 'continuar'... =>esto es lo que 'tendras que' hacer...<
1) Crea un estilo personalizado [Formato -> Estilo -> [Nombre: "Centella" -p.e.-] ... etc.
ASEGURATE de que [al menos] 'incluyes' el tipo de letra [font] y ...
[si 'personalizas' el formato de numero] EVITA los que 'usan' color para cifras negativas, condiciones, etc. <= 2) 'aplica' dicho estilo a la/s celda/s que nececites con el 'efecto'
3) copia los siguientes codigos como se indica...
[consulta la ayuda {F1} en vba para la 'tabla de opciones' de color con respecto de 'ColorIndex']

en un modulo de codigo 'normal' ==Dim Siguiente As Date
Sub Comenzar()
Siguiente = Now + TimeValue("00:00:01")
With ThisWorkbook.Styles("Centella").Font
If .ColorIndex = 5 Then .ColorIndex = 3 Else .ColorIndex = 5
End With
Application.OnTime Siguiente, "Comenzar"
End Sub
Sub Detener()
On Error Resume Next
Application.OnTime Siguiente, "Comenzar", Schedule:=False
ThisWorkbook.Styles("Centella").Font.ColorIndex = xlColorIndexAutomatic
End Sub
en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_Open()
Comenzar
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Detener
End Sub
_______
Saludos,
Héctor.
MS-MVP