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