как листу дать имя

[owl-ka]

Люди, помогите пожалуйста и если можно, то срочно (по работе горит)! Я в макросах - полный ноль. а без них задачу не решить.
Есть некая книга с массой листов. На каждом листе есть одинаковая шапка для таблицы. В этой шапке каждой ячейке (например В2 - название, А2 - имя, J2 - имя и т.д.) соответствует свое содержимое. Помогите сделать так, чтобы имя листа соответствовало содержимому одной ячейке на листе (например ячейке А2, т.е. её содержимому) и еще, при добавлении листов, в новом листе это работало тоже. Просто когда листов немного, это можно сделать вручную, а вот для огромного количества..... проблематично.
Оглавление для книги уже есть. Создается при помощи макроса. Если можно и подскажите как это все связать.

[EducatedFool]

Sub RenameSheets()
    On Error Resume Next ' это на случай, если на нескольких листах
    ' в ячейках А2 будет одно и то же значение
    ' а двух листов с одинаковыми именами быть не может
    
    
    'Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        sh.Name = sh.[a2]
    Next
End Sub

при добавлении листов, в новом листе это работало тоже

При добавлении листа он по умолчанию создаётся пустым, так что сразу присвоить ему нужное имя не получится.
Придется после заполнения нового листа снова запускать макрос.

[owl-ka]

EducatedFool!
подскажите еще - это записывать как модуль в книгу? Если да, тогда напрашивается еще вопрос. одним модулем в книге есть оглавление - вот такой макрос
Sub SheetList()
Dim sheet As Worksheet
Dim cell As Range

With ActiveWorkbook
For Each sheet In ActiveWorkbook.Worksheets
Set cell = Worksheets(1).Cells(sheet.Index, 1)
.Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", _
SubAddress:="'" & sheet.Name & "'" & "!A1"
cell.Formula = sheet.Name
Next
End With
End Sub
, как их совместить или создать различные модули? и еще забыла, нужно чтобы листы были по порядку.

[EducatedFool]

Разные модули создавать ни к чему.

Можно поместить эти макросы один за другим, например, так:

Sub RenameSheets()
    On Error Resume Next: For Each sh In ThisWorkbook.Worksheets: sh.Name = sh.[a2]: Next
End Sub

Sub Оглавление()
    Dim sheet As Worksheet, cell As Range
    With ThisWorkbook
        For Each sheet In .Worksheets
            Set cell = .Worksheets(1).Cells(sheet.Index, 1)
            .Worksheets(1).Hyperlinks.Add cell, "", "'" & sheet.Name & "'" & "!A1", , sheet.Name
        Next
    End With
End Sub

Или объединить их в один:

Sub Оглавление_и_переименование_листов()
    On Error Resume Next
    Dim sheet As Worksheet, cell As Range
    With ThisWorkbook
        For Each sheet In .Worksheets
            sheet.Name = sheet.[a2]
            Set cell = .Worksheets(1).Cells(sheet.Index, 1)
            .Worksheets(1).Hyperlinks.Add cell, "", "'" & sheet.Name & "'" & "!A1", , sheet.Name
        Next
    End With
End Sub

[owl-ka]

А сортировать по порядку 1, 2, 3, и т.д. они смогут?
И пока последний вопрос. У меня на работе стоит 2 машины, на одной офис 2003, на другой 2007. Этот макрос сможет работать и в одном excel и в другом?
Я решила серьезно заняться изучением этого дела как VBA. В интернете нашла достаточно много литературы, но столкнулась с тем, что макросы написаные для одной системы, не всегда подходят к другой. Иногда бывают конфликты между 97, 2003 и 2007 офисом.(я сама с таким столкнулась). Подскажите(если можно со ссылкой) где расписано даже для "полных нулей в VBA" как написать правильный макрос или исправить уже готовый, если он не работает в этой версии.

[owl-ka]

Я то нашла макрос для сортировки листов:
Sub SortSheets()
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
Из всего выше изложенного его нужно будет поставить в тот же самый модуль после предыдущего составного макроса.?

[EducatedFool]

А сортировать по порядку 1, 2, 3, и т.д. они смогут?

Что именно надо сортировать? Листы в книге, или записи в оглавлении?

У меня на работе стоит 2 машины, на одной офис 2003, на другой 2007. Этот макрос сможет работать и в одном excel и в другом?

Да, такие простые макросы должны работать в любой версии Office.

столкнулась с тем, что макросы написаные для одной системы, не всегда подходят к другой

Да, бывает такое, но не так часто, чтобы изучение VBA начинать именно с этой темы.

как написать правильный макрос или исправить уже готовый, если он не работает в этой версии

Исправить макрос, работающий в 2003-й версии, но отказывающийся работать в 2007-й, порой бывает сложно даже для профессионалов...

Абсолютное большинство макросов, которые Вам понадобятся для работы, будут отлично работать во всех версиях Excel

[owl-ka]

В данному случае каждому ярлыку листа будет присвоено имя, обозначающее номер или слово. И сортировать естественно придется листы книги, а оглавление само подстроится затем под нумерацию или список

[EducatedFool]

Из всего выше изложенного его нужно будет поставить в тот же самый модуль после предыдущего составного макроса.?

Абсолютно не важно, в тот же модуль, или в какой-нибудь другой.
Главное, в каком порядке все эти макросы будут запускаться.

Напишите макрос

Sub ОбработкаФайла()
    SortSheets
    Оглавление_и_переименование_листов
End Sub

который будет запускать другие в определённом порядке.

Макрос сортировки листов лучше записать так:

Sub SortSheets()
Dim I As Integer, J As Integer
For I = 1 To Worksheets.Count - 1
For J = I + 1 To Worksheets.Count
If UCase(Worksheets(I).Name) > UCase(Worksheets(J).Name) Then Worksheets(J).Move Before:=Worksheets(I)
Next J
Next I
End Sub[/CODE]