Aby sa názvy súborov brali podľa stĺpca Vzorek, tak stači upraviť riadok:
aFilename = "Vzorek " & aIndex & ".xlsx"
na:aFilename = aRange.Cells(aIndex, 0).Value & ".xlsx"
Aby sa názvy súborov brali podľa stĺpca Vzorek, tak stači upraviť riadok:
aFilename = "Vzorek " & aIndex & ".xlsx"
na:aFilename = aRange.Cells(aIndex, 0).Value & ".xlsx"