i really need help for that.
thanking in advance for any kind valuable helping hand given.
regards,
desmond
There isn't any.
But you could could create your own, sort of.
If you put a special character in front of the character you wish to
subscript, you could use a macro and assign that to a shortcut key
combination.
The following macro assumes a question mark for the special character.
Sub ReplSubscr()
Dim a(256)
For i = 1 To Len(ActiveCell)
If Mid(ActiveCell, i, 1) = "?" Then
ActiveCell = Left(ActiveCell, i - 1) & _
Right(ActiveCell, Len(ActiveCell) - i)
acount = acount + 1
a(acount) = i
End If
Next i
For i = 1 To acount
With ActiveCell.Characters(Start:=a(i), Length:=1).Font
.Superscript = True
End With
Next i
End Sub
Regards,
Niek Otten
Desmond <des...@tm.net.my> schreef in berichtnieuws
Ox7SO4muAHA.1820@tkmsftngp04...