jen pro info selže na :
cislo = ExecuteExcel4Macro("VLookup(" & stredisko & ",'[Jednotkové ceny_komplet 2013.xls]data'!R1C1:R200C20,3,False)")

protože list, který se doplňuje do proměnné "stredisko" neexistuje v daném sešitu. U 5ti předchozích zafunguje tak že nápis vepíše do buňky tak jak chci, ale jak už je těch chyb moc, macro se ukončí.

Děkuji