Přejmenování listu VBA Excel2016

[PoPa]

Zdravím,
prosím o pomoc. V kódu mám následující:
Sheets(AktivniList).Copy After:=Sheets(1)
Set ws = ActiveSheet
ws.Name = "Do práce"

Potřebuji kopii původního listu i s daty a přejmenovat. V Excelu 2013 není problém v Excelu 2016 to nezabírá. Má někdo nápad?
Děkuji

[atari]

Chybí tam závorky a v názvu listu nesmíš nad písmeny používat českou interpukci. (Pochybuji, že ve 2013 to takto fungovalo.)

Kód: Vybrat vše

Sheets("AktivniList").Copy After:=Sheets(1)
Set ws = ActiveSheet
ws.Name = "Do prace"

[PoPa]

Bohužel ani toto nepomohlo a v Excelu 2013 to pracuje tak jak jsem napsal až doposud. AktivniList není pojmenování listu, ale proměnná v které je "List1". Vyměnil jsem i za ActiveSheet.Name a stále nic. Kopii listu provede, ale nepřejmenuje ji.

[atari]

AktivniList není pojmenování listu ...

Aktivní list je řeci název listu - Sheets("AktivniList") - to je přeci standardní označení listu podle názvu.

... ale proměnná v které je "List1".

Jak může být list v porměnné? Tomu už vůbec nerozumím.

[elninoslov]

Kód: Vybrat vše

Sub CopyWS()
Dim AktivniList As String, ws As Worksheet
  With ThisWorkbook
    AktivniList = "halušky"
    .Worksheets(AktivniList).Copy After:=.Worksheets(1)
    Set ws = .ActiveSheet
    ws.Name = "Do práce"
    Set ws = Nothing
  End With
End Sub

Ak nechcete ešte niečo iné robiť s novým listom, ani nepotrebujete premennú "ws", ale použite

Kód: Vybrat vše

Sub CopyWS()
Dim AktivniList As String
  With ThisWorkbook
    AktivniList = "halušky"
    .Worksheets(AktivniList).Copy After:=.Worksheets(1)
    .ActiveSheet.Name = "Do práce"
  End With
End Sub

Ak premenná "AktivniList" nadobúda rôzne hodnoty, tak je to mätúce, a radšej si ju premenujte napr. na "ListName", a bude označovať meno listu na kopírovanie, pretože kopírovaný list nemusí byť vždy aktívny.
Alebo ak máte nejaké kopírovacie tlačítko na každom liste, ktorého sa to týka, tak ani premennú AktivniList nepotrebujete, ale môžete použiť:

Kód: Vybrat vše

Sub CopyWS()
  With ThisWorkbook
    .ActiveSheet.Copy After:=.Worksheets(1)
    .ActiveSheet.Name = "Do práce"
  End With
End Sub