Aparentemente, é por que as planilhas estão "escondidas".

Altere a parte do Codigo Classificar como abaixo

Sub ClassificarPlanilhas()
Dim SheetNames() As String
Dim i As Integer
Dim SheetCount As Integer
Dim VisibleWins As Integer
Dim Item As Object
Dim OldActive As Object
'Alterado 
Set OldActive = ActiveSheet
Application.ScreenUpdating = False
Call ExibePlan

If ActiveWorkbook.ProtectStructure Then
MsgBox ActiveWorkbook.Name & " is protected.", _
vbCritical, "Cannot Sort Sheets"
Exit Sub
End If
Application.EnableCancelKey = xlDisabled
VisibleWins = 0
For Each Item In Windows
If Item.Visible Then VisibleWins = VisibleWins + 1
Next Item
If VisibleWins = 0 Then Exit Sub
SheetCount = ActiveWorkbook.Sheets.Count
ReDim SheetNames(1 To SheetCount)
For i = 1 To SheetCount
SheetNames(i) = ActiveWorkbook.Sheets(i).Name
Next i
Call Classificar(SheetNames)
Application.ScreenUpdating = False
For i = 1 To SheetCount
ActiveWorkbook.Sheets(SheetNames(i)).Move _
ActiveWorkbook.Sheets(i)
Next i

'Alterado 
Call OcultaPlan
OldActive.Activate
Application.ScreenUpdating = True

End Sub

não consegui !!

Segue a rotina alterada em seu exemplo

não consegui !!

Primeiramente, Reinaldo, gostei da rotina, bem elaborada, simples e direta.

Elton, como estamos em um Forum, simplesmente colocar "Não consegui", você há de conver comigo que é uma expressão bem vaga, se ao menos colocasse que não conseguiu, o motivo ou o porque, fica mais simples conseguirmos ajudar.
A rotina que o reinaldo postou, a principio não vi nenhuma dificuldade, não por eu entender um pouco de VBA, mas pelo fato que era simplesmente copiar, colar e rodar, não necessitando de nenhuma adaptação, a não ser que não é o que pretende.
Repito, se tivesse esclarecido o "porque", ou se chegou dar algum erro, seria bem mais simples, pelo simples fato, que como eu, muitos colaboradores, não teem como ficar baixando os anexos, e na maioria das vezes, visualizando a rotina e a possivel mensagem de erro ou qualquer outra questão, é possivel tentar entender e ajustar.

Espero que não me entenda mau, é só uma observação pessoal, toda minha.

[]s

obrigado reinaldo,me ajudou mais uma vez,eu estava copiando e colando mas o código não estava rodando,vou tentar entender onde eu estava errando.