Переименование и сортировка листов

[VadimSh]

Необходимо автоматически сортировать листы при переименовании листа. В настоящий момент реализовано кнопкой с макросом:

Sub Sort_Sheets()
Dim i As Integer, j As Integer
For i = 1 To Sheets.Count - 1
For j = i + 1 To Sheets.Count
If UCase(Sheets(i).Name) > UCase(Sheets(j).Name) Then
Sheets(j).Move before:=Sheets(i)
End If
Next j
Next i
End Sub

[Казанский]

http://www.sql.ru/forum/1153887/pere...tirovka-listov
Где еще спросили?

[VadimSh]

Нашел решение. Тема закрыта.