[Marty]

Hi-

I have some VBA code:


If LPPCI0.AddedPages.Value True Then
With Selection
.HomeKey Unit:=wdStory
.Find.Execute FindText:="[transmittal]"
.ExtendMode = True
.Find.Execute FindText:="[added pages]"
.Delete
End With
End If

If LPPCI3.OptionButton17 True Then
With Selection
.HomeKey Unit:=wdStory
.Find.Execute FindText:="[added pages]"
.ExtendMode = True
.Find.Execute FindText:="[cover sheet]"
.Delete
End With
End If

When I step through, I can see the cursor going to each and every line. Both
LPPCI0.AddedPages and LPPCI3.OptionButton17 are false. But it does not seem
to be deleting the portions of the document between [transmittal] & [added
pages] and between [added pages] & [cover sheet]. Why???? Does .Delete not
work?

[transmittal], [added pages] & [cover sheet] are all in the .dot template.
The verbiage is not being deleted after the mailmerge.

It's driving me nuts.

Please help.

Thanks.