The code I posted replaces everything between 'Set SrcWs = SrcWb.Sheets("DATA")' and 'End Sub'.
I would be reluctant to make any other changes to your code because it has a lot of variables that aren't used in what you've posted, so I don't know how they are relevant.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|