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.

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