Actually, do you have any ideas for improving this code? Right now, the code can make subscript or remove subscript on one click, but ONLY if you click on the WHOLE cell (i.e. A4, B2, etc). I'm wondering how to alter this so that I can highlight one or two things in a cell for subscripting (i.e. Ba2CuO3 - only the numbers, not the whole cell entry).

Bryan (sorry - I don't know where the code box button is here)


Sub Subscript()
If Selection.Font.Subscript = True Then
With Selection.Font
.Subscript = False
End With
Else
With Selection.Font
.Subscript = True
End With
End If
End Sub