Formato de fórmula química en celda

hola, Nano !

... escribir formulas quimicas de alguna forma mas facil que recurriendo al subindice
... para poner Fe2O3 selecciono el 2 y el 3 y en "Formato - Celdas - Fuente" marco subindice
... si se trata de escribir formulas y formulas eso resulta un poco co#azo
... alguna manera de automatizar el proceso.

considerando que el 'escribir formulas quimicas' NO es 'el fuerte' de excel :))
[quizas] probando con una macro que 'automatice' el proceso +/- como la siguiente:
-> sobre un rango de celdas 'seleccionado' que contenga tus formulas en texto 'normal'...
convierte los numeros en subindices ;)

en un modulo de codigo 'normal' ==Sub Numeros_en_Subindice()
Application.ScreenUpdating = False
Dim Celda As Range, Sig As Byte
For Each Celda In Selection
Celda.Font.Superscript = False
For Sig = 1 To Len(Celda)
Celda.Characters(Sig, 1).Font.Subscript = _
Mid(Celda, Sig, 1) Like "[0-9]"
Next
Next
End Sub

saludos,
hector.