makro na nové listy v Excelu

[kropec]

Prosím jak napsat makro na přidání listů (počet si zadám sám) a pokud to jde i s názvy.

[Reklama]

[mmmartin]

Jak napsat nevím, ale můžeš makro zaznamenat jako tzv. klávesové: Dáš Nástroje/makro/záznam nového makra, zadáš jméno a případně klávesovou zkratku pro spuštění a tím přejdeš do režimu záznamu. V něm provedeš manuálně to, co má makro dělat - pozor! neklikat při tom myší na "tlačítka" na obrazovce, používat klávesové zkratky - pak dáš Nástroje/makro/ukončit záznam a je hotovo.

[kropec]

Asi sme si nerozuměli nebo sem zadal špatně otázku. Mám udělaný makro na 1 list, já ale potřebuji těchto listů konkrétně 12 s názvy měsíců.

Sub list_nový_název()

On Error Resume Next
Dim Aktual_list_jmeno As String
Dim Nove_jmeno_listu As String
Dim pocet_listu

Sheets(a).Select
pocet_listu = a - 1
If Error = "Subscript out of range" Then
Aktual_list_jmeno = ActiveSheet.Name
Nove_jmeno_listu = Application.InputBox(vbCrLf & "Zadej nový název listu", "Název listu ...")
If Nove_jmeno_listu <> "" Then
ActiveSheet.Select
Sheets.Add
ActiveSheet.Name = Nove_jmeno_listu
Else
Exit Sub
End If
Sheets(1).Select
End If

End Sub