To mi právě nefunguje - zbytek opravdu zůstane stejný včetně:
aRange.Cells(aIndex, 1).Value = aWorkbook.Worksheets("Povrch").Range("B5")
aRange.Cells(aIndex, 2).Value = aWorkbook.Worksheets("Objem").Range("C5")
aRange.Cells(aIndex, 3).Value = aWorkbook.Worksheets("Poloměr").Range("D5")
??Bavíme se o načítání všech xlsx souborů ze složky bez rozdílu názvu?