Actually, instead of changing:
If bDel = True Then .Delete
to:
If bDel = True And i > 1 Then .Delete
it would be more efficient to change:
For i = .Rows.Count To 1 Step -1
to:
For i = .Rows.Count To 2 Step -1
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|