Nick,

Thanks for the effort.

Jack.

"Nick Hodge" schreef in bericht
...
Reading back through the post, these also will not work in Edit mode. In
fact nothing will in VBA

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
HIS


"Nick Hodge" wrote in message
...
Jack

Not looked at shortcut keys recently, but these will do for your needs.
They can be assigned to shortcut keys of your choice via the
ToolsMacroMacros...Options... button

Sub ToggleStrikeThrough()
If ActiveCell.Font.Strikethrough = True Then
Selection.Font.Strikethrough = False
Exit Sub
End If
Selection.Font.Strikethrough = True
End Sub

Sub ToggleSuperScript()
If ActiveCell.Font.Superscript = True Then
Selection.Font.Superscript = False
Exit Sub
End If
Selection.Font.Superscript = True
End Sub

Sub ToggleSubScript()
If ActiveCell.Font.Subscript = True Then
Selection.Font.Subscript = False
Exit Sub
End If
Selection.Font.Subscript = True
End Sub


--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
HIS


"Jack Sons" wrote in message
...
Bob,

Strange, because I know they exist in Word 2000. Why not in Excel 2000?
Can't they be "transplanted" from Word to Excel? I guess the same
internal
program(language) is behind Word and Excel (VBA)?

Jack Sons
The Netherlands

"Bob Phillips" schreef in bericht
...
There are no built-in shortcuts for these. You could write your own
UDF,
but
this won't work in edit mode on a cell.
Maybe John Walkenbach's SuperSub add-in would be what you want.

Allows selecting text to Super or Sub.

http://www.j-walk.com/ss/excel/files/supersub.htm


--

HTH


RP
(remove nothere from the email address if mailing direct)


"Mann Lee" wrote in message
om...
We all know there are built-in shortcut keys for Font.underline
[CTRL+u], .italic [CTRL+i], .bold [CTRL+b]and corresponding toolbar
buttons in Excel.
They are toggling shortcut keys which even work during
typing/editing
in a cell, which is very convenient.
I've been struggling to make such shortcut keys for superscript and
subscript, without success.
Would anyone kindly tell me how?
I am currently trying to learn EXCEL 2000 VBA and ACCESS 2000 VBA.