Sub SubscriptOnOff()
' Paul Beverley - Version 05.03.23
' Toggles subscript ON/OFF

Selection.Font.Subscript = Not Selection.Font.Subscript
End Sub