Dobrý den, potřeboval bych pomoci s makrem pro kopírování buněk ze souboru prvni soubor, list se jmenuje ListZ, do souboru listu souboru test, jež se jmenuje List1, můj kód vypadá takto :

Sub kopirovani_mezi_soubory()

Dim soubor_z As Workbook
Dim soubor_do As Workbook

Set soubor_z = Workbooks.Open("C:\Users\coffee\Desktop\Ukol\prvni soubor.xlsm")
Set soubor_do = Workbooks.Open("C:\Users\coffee\Desktop\Ukol\test.xlsx")

soubor_do.Sheets("List1").Range("A1:100").Value = soubor_z("ListZ").Range("A2:A100")

soubor_z.Close
soubor_do.Save
soubor_do.Close

bohužel mi kod píše chybu run time error 438, object doesnt support this property or method, poradí prosím někdo jak kod upravit, aby fungoval? děkuji

End Sub