Application VisualBasic Script

Sub opt2()
    Dim blnOvertypeOn As Boolean
    blnOvertypeOn = Options.Overtype
    Options.Overtype = False
    Options.Overtype = blnOvertypeOn
End Sub