V, she`s alive!!! ©
Всё работает! Спасибо, добрый человек! Дай Вам Бог двойняшек!))

V, теперь номер листа по порядку присваивается всем листам подряд, и тем, у которых данные в ячейке Т9 уникальны. то есть просто считает листы. Смысл в том, что листов будет несколько сотен, и цифра дубля (трибля)) )информирует о наличии оного, а сейчас - нет...

k61,
ругается
"object required"
Если пытаюсь что-то изменить, то и вовсе
"run time error 424 object required"

Sub RenameSheets()
For Each sh In ActiveWorkbook.Worksheets
sh.Name = sh.Range("T9").Value
Next
End Sub

___
таким макросом из ячейки Т9 начала переименовывать листы. Ошибка 400. Данные в этой ячейке оказались неуникальные. Переименование спотыкается на таких листах. А назвать лист надо всё равно по данным ячейки. Подскажите, пожалуйста, что дописать, чтобы к имени добавлялось, например, ххх(1), ххх(2) - в случае повторения данных в ячейке.