PC-HELP.CZ

Zdravím,
mám prosbu. Mám v souboru makra na vytvoření listu a smazání listu. Vše funguje tak, že na začátku se ze vzoru udelá list Poptávka. Po uložení do PDF a XLSX se daný list smaže. No a jak to mám nastavené na jméno listu, tak jsem zjistil, že někdy potřebuji mít těch listů s Poptávkou více. Jak mám upravit tyhle dvě makrat tak, abych mohl nasekat těch listů více?
Díky moc
David

Sub VytvorNovyListPoptavka()
'
' vytvoří kopii listu Vzor na list Poptavka
'
'
Sheets("Vzor").Select
Sheets("Vzor").Copy Before:=Sheets(1)
ActiveSheet.Name = "Poptávka"
End Sub



Sub SmazListPoptavka()
' smaže list Faktura
Application.DisplayAlerts = False
Sheets("Poptávka").Delete
Application.DisplayAlerts = True


End Sub

No přeci v cyklu...

For i = 1 To PocetListu
... váš kód (používající proměnnou i třeba pro pojmenování listu
Next i