excels 2003 - ordinare i fogli in ordine alfabetico

[chicolocox21]

Ciao a tutti
Una domanda forse banale ma
é possibile ordinare i fogli di un file in ordine alfabetico
meglio ancora se questo avvenisse automaticamente
ciao grazie

[ricky53]

Ciao,
prova con questa macro

Codice: Seleziona tutto

Option Explicit
Option Compare Text

Sub Ordina_Fogli()
    Dim I As Integer
    For I = 1 To Worksheets.Count - 1
        If Sheets(I).Name > Sheets(I + 1).Name Then
            Sheets(I).Move After:=Sheets(I + 1)
            I = 0
        End If
    Next I
    MsgBox "Ordinamento Effettuato"
End Sub


Con "... questo avvenisse automaticamente"
cosa intendi: che l'utente non deve fare nulla e ad ogni apertura del FILE viene effettuato l'ordinamento dei fogli ?