Public Sub ReName() Dim wb As Workbook Application.ScreenUpdating = False Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Файл 2.xls") For i = 1 To ThisWorkbook.Sheets.Count If Len(wb.Sheets("Лист3").Range("A" & i)) Then ThisWorkbook.Sheets(i).Name = wb.Sheets("Лист3").Range("A" & i) Next i wb.Close SaveChanges:=False Application.ScreenUpdating = True End Sub
Public Sub ReName() Dim wb As Workbook Application.ScreenUpdating = False Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Файл 2.xls") For i = 1 To ThisWorkbook.Sheets.Count If Len(wb.Sheets("Лист3").Range("A" & i)) Then ThisWorkbook.Sheets(i).Name = wb.Sheets("Лист3").Range("A" & i) Next i wb.Close SaveChanges:=False Application.ScreenUpdating = True End Sub
Pelena, спасибо, а как сделать что бы макрос запускался автоматически при запуске файла? и будет ли он сильно тормозить, если нужно переименовать 200 листов?
Pelena, спасибо, а как сделать что бы макрос запускался автоматически при запуске файла? и будет ли он сильно тормозить, если нужно переименовать 200 листов?Maksim156