Sub RenameSheets()
For Each sh In ActiveWorkbook.Worksheets
sh.Name = sh.Range("T9").Value
Next
End Sub
___
таким макросом из ячейки Т9 начала переименовывать листы. Ошибка 400. Данные в этой ячейке оказались неуникальные. Переименование спотыкается на таких листах. А назвать лист надо всё равно по данным ячейки. Подскажите, пожалуйста, что дописать, чтобы к имени добавлялось, например, ххх(1), ххх(2) - в случае повторения данных в ячейке.
For Each sh In ActiveWorkbook.Worksheets
sh.Name = sh.Range("T9").Value
Next
End Sub
___
таким макросом из ячейки Т9 начала переименовывать листы. Ошибка 400. Данные в этой ячейке оказались неуникальные. Переименование спотыкается на таких листах. А назвать лист надо всё равно по данным ячейки. Подскажите, пожалуйста, что дописать, чтобы к имени добавлялось, например, ххх(1), ххх(2) - в случае повторения данных в ячейке.