Re: 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")

Já bych to udělal tak, že bych si napřed ty názvy hodil do pole a
potom to tam naházel..

Takže něco takovýho pro tvůj případ:

    Dim pole(39) As String
    For i = 6 To 39
        pole(i) = Range("U" & i)
    Next i

   for i =1 to 34
        Sheets(i).Name = pole(i+5)
   next i


-- 
Cao,
 Kamil