Sub SubscriptSwitch()
' Paul Beverley - Version 03.08.22
' Toggles superscript -> subscript

If Selection.Start = Selection.End Then Selection.MoveEnd , 1

If Not Selection.Font.Subscript And _
     Not Selection.Font.Superscript Then
  Selection.Font.Subscript = True
  Exit Sub
End If
If Selection.Font.Subscript Then

  Selection.Font.Superscript = True
  Exit Sub
End If
If Selection.Font.Superscript = True Then _
  Selection.Font.Superscript = False
End Sub