Hi,

I find this code but it's only order the name of worksheets and I need to keep the "body" of the sheets connected with the name.

code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Sht As Worksheet, ShtName As String
For Each Sht In Worksheets
ShtName = Sht.Name
Sht.Name = "XYZ" & ShtName
Next Sht
For Each Sht In Worksheets
ShtName = Sht.Index
Sht.Name = ShtName
Next Sht
End Sub
Thanks