Импорт переменной, связь Word и Excel с помощью макроса

Здравствуйте, уважаемые программисты. У меня имеется документ Word и документ Excel. Нужно сделать следующее:
1.    С помощью UserForm ввести переменную в макрос Word (это я сам сделаю);
2.    Импортировать эту переменную в документ Excel, вставить её значение в оп-ределённую ячейку.
3.    В документе Excel производится расчёт с помощью стандартной формулы.
4.    Результат расчёта необходимо вставить обратно в документ Word.

Много, что смотрел, находил. Сейчас остановился на том, что мой макрос в Word запускает нужную мне книгу Excel, в ней запускает «Макрос1», который выпол-няет копирование ячейки. Затем выполняется связанная вставка в Word и далее хо-чу закрыть книгу Excel но выскакивает ошибка. Хочу разобраться, как мне предвари-тельно в Excel вставить переменную и.. вообще мне кажется, что что-то я перемуд-риваю.. Мне кажется не такой уж сложный макрос для моей задачи должен быть.. Надо ли вообще открывать книгу Excel, например?
Буду очень благодарен, если кто ни будь скинет пример такого макроса.. Ну а если нет, то задайте хотя бы вектор направления)

Sub OpenCalendar()
Set app = CreateObject("excel.application")
app.Visible = True
Set wkb = app.Workbooks.Open("Адрес книги Excel")
GetObject(, "excel.application").Run "Макрос1"
Selection.PasteSpecial Link:=True, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
Workbooks.Close SaveChanges:=True
End Sub