write E cell with a standard sign

Sub ECell()

Selection.OMaths.Add Range:=Selection.Range
Selection.OMaths(1).Functions.Add(Selection.Range, _
        wdOMathFunctionScrSubSup).ScrSubSup.AlignScripts = False
Selection.MoveLeft Unit:=wdCharacter, Count:=3
Selection.TypeText Text:="E"
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="cell"
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=ChrW(415)
Selection.MoveRight Unit:=wdCharacter, Count:=1
       
Dim equation As OMath
For Each equation In ActiveDocument.OMaths
        equation.Range.Font.Italic = False
Next equation
    
For Each equation In ActiveDocument.OMaths
        equation.Range.Font.Size = 12
Next equation

Selection.Font.Name = "Arial"
Selection.Font.Size = 11
Selection.TypeText Text:=" "
   
End Sub