Fwd: makro - prejmenovani listu v sesitu podle bunek

Uz jsem se asi dostala na spravnou cestu, ale mam tam jeste chybu.

Kdyz stojim v listu 1, tak prikaz

ActiveSheet.Name = Worksheets("Kontr").Range("U6")

funguje.

Ale kdyz to chci rozsirit:


Sub prejmenovani_listu()

Sheets("1").Select
ActiveSheet.Name = Worksheets("Kontr").Range("U6")
Sheets("2").Select
ActiveSheet.Name = Worksheets("Kontr").Range("U7")

End Sub
Tak je tam chyba.....

Bude to asi neco trivialniho....


---------- Forwarded message ----------
From: Simona Trneckova <strnecka@gmail.com>
Date: Aug 31, 2006 9:08 AM
Subject: makro - prejmenovani listu v sesitu podle bunek
To: servis-internet@nawebu.cz


 Zdravim

jeste jednu velkou prosbu mam. Moc by mi to pomohlo......

V sesitu (nazvy se ruzni) mam list s nazvem "Kontr" a ve sloupci U v bunkach
U6:U39 ruzne texty. Napriklad TZB, TR1, STO atd. Jsou pokazde ruzne.

Zaroven mam v sesitu listy nazvane 1 az 34.

Po spusteni makra bych potrebovala, aby se listy 1 az 34 prejmenovaly na
nazvy v bunkach U6 az U39.

Neni mozne listy teprve vytvaret nebo tak, makro by melo delat ciste jen to
prejmenovani jiz existujicich listu, kvuli provazanosti listu na vzorce v
jinych listech s timto nelze hnout.


Prosim pekne, je neco takoveho mozne udelat?

Dekuju moc

Simona