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

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

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

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