Thanks jolivanes.

The only problem I see is this line....

[VBA].Name <> "2012" Then[/VBA]

I used the numbers in the attached book as examples. Those numbers will never be the same as listed in the book I attached. So I need something that is more flexible in identifying and keeping the last sheet name that is a number.