Awesome! Perfect!! What else can I say!!!

This will work perfectly!! However, a couple of questions that I am
sure I am missing:

After the sorting took place, I got this:
Code Rank 1 Rank 2 Rank 3 Rank 4 Rank 5
00125300 3 3 0 0 1
00125300 0 1 2 0 3
00125300 3 3 1 2 0
00125300 1 2 3 1 2
00125300 2 0 0 0 0
00125300 Max 3 3 3 2 3
Grand Max 3 3 3 2 3

After I click '2' for the outline, I get this:
Code Rank 1 Rank 2 Rank 3 Rank 4 Rank 5
00125300 Max 3 3 3 2 3
Grand Max 3 3 3 2 3

After I copy the visible cells to a new workbook, and then select column
A of the new worksheet
edit|Replace
what: _Max (spacebar MAX)
with: (leave blank)
replace all... I get this:
Code Rank 1 Rank 2 Rank 3 Rank 4 Rank 5
125300 3 3 3 2 3
Grand 3 3 3 2 3

... My question(s) a
1) Can I get rid of the 'Grand' row all together?
2) I need to retain the leading zeros in the DOE code (assuming this is
just destination cell formatting)


I can't thank you enough for your help already Dave... INVALUABLE!!




*** Sent via Developersdex http://www.developersdex.com ***