Duplicate return address w/mail merge...

[DJ]

When executing this macro, the envelopes are generated as expected
with the exception that the return address is duplicated. I deleted
the info from option/user info thinking that I was picking up the
address twice. No help. If I change 'omitreturnaddress' to true, no
return address is generated. Any guidance will be greatly
appreciated.

Sub Xmas01()
'
' Xmas01 Macro
' Macro recorded 12/21/2006 by Donald ...initial step in setting up
Xmas cards...
'
ActiveDocument.MailMerge.MainDocumentType = wdEnvelopes
ActiveDocument.MailMerge.OpenDataSource Name:="C:\MM_BOOKS.DOC", _
ConfirmConversions:=False, ReadOnly:=False,
LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="",
PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="",
Revert:=False, _
Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="",
SQLStatement1 _
:=""
With ActiveDocument.Styles(wdStyleEnvelopeAddress).Font
.Name = "Garamond"
.Size = 16
.Bold = True
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorAutomatic
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
End With
With ActiveDocument.Styles(wdStyleEnvelopeReturn).Font
.Name = "Garamond"
.Size = 9
.Bold = True
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorAutomatic
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
End With
ActiveDocument.Envelope.Insert ExtractAddress:=False,
OmitReturnAddress:= _
False, PrintBarCode:=False, PrintFIMA:=False,
Height:=InchesToPoints(5.88 _
), Width:=InchesToPoints(8.13), Address:="", AutoText:= _
"ToolsCreateEnvelope1", ReturnAddress:="xxx" & Chr(13) & _
"xxxx" & Chr(13) & "xxxxx", _
ReturnAutoText:="", AddressFromLeft:=wdAutoPosition,
AddressFromTop:= _
wdAutoPosition, ReturnAddressFromLeft:=wdAutoPosition, _
ReturnAddressFromTop:=wdAutoPosition,
DefaultOrientation:=wdLeftClockwise _
, DefaultFaceUp:=False
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With
ActiveWindow.ActivePane.View.Zoom.Percentage = 75
End Sub