Что здесь неправильно:
Dim d As Range
Dim c As Range
d = Workbooks("d:\Книга1.xls").Worksheets("Лист1").Range("A1:B10")
c = Workbooks("d:\Книга2.xls").Worksheets("Лист1").Range("A1:B10")
c = d.Value

При выполнении этого куска кода выдаётся ошибка:
Run-time error '9':
Subscript out of range

т.е. есть необходимость копирования данных из диапазона Книга1 в аналогичный диапазон Книга2. Обе книги открыты. Подскажите, пожалуйста.