Преименуване на sheet Опции

Здравейте,
след разглеждане не успях да намеря тема която да ми помогне за решаване на проблема. Имам един workbook който съдържа много sheet (около 250), които са наименувани по подразбиране от excel. Искам да им сменя имената на всички, като името на всеки sheet да се изтегли автоматично от текста който се съдържа в съответния sheet (например някакъв номер, 1, 2, 5, 10 и т.н). Незнам дали има решение, но наистина се надявам да помогнете.
Благодаря!

 Rename_sheets.zip ( 13.6 килобайта ) Брой сваляния: 9


Виж прикаченият файл, съдържа макроси за автоматично преименуване на листовете в
ексел, ако желаеш ги разгледай и може да ползваш някой от тях.
Поздрави и ако нещо ти е неясно питай?

Това съобщение е било редактирано от naskobk на 13.06.2015г. в 11:33ч.

Благодаря! Когато имам достъп до компютър ще ги разгледам