Отправлено: 14.03.10 14:36. Заголовок: Имена листов в Excel

Помнится когда-то давно тов. Админ был озабочен как узнать имена листов в киге Excel. Вот один из способов.

Sub get_name_Sheet()
Dim sz
Dim ff() As String

sz = Sheets.Count
ReDim ff(sz)
For i = sz To 1 Step -1
ff(i) = Sheets(i).Name
Next i
End Sub