For any other mailmerge main document, you would need to change the '8' in:
For r = .Rows.Count To 8 Step -1
to specify the top row to test and the '(2)' in:
If Len(.Cells(2).Range.Text) = 2 Then .Delete
to specify the column to test.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|