As the comments in the code indicate, it won't delete the first two rows of your table. To change that, simply edit the line:
If .Cells(1).RowIndex < 3 Then Exit Sub
and adjust the comments to suit. Do note that it was coded the way for consistency with your DeleteAllRowsNew macro. If you delete all rows, including the 2nd row, you'll lose the ability to add new rows with the necessary content.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|