Макрос для Связывание таблиц Word и Excel по ячейкам

Sub CopyFromExcel() 
'Связывание таблиц Word и Excel по ячейкам. Необходимо выделить ячейки в Excel и
' соответствующиие им ячейки в Word
    Dim objExcel, c, i
'Если ошибка - В пункте меню Tools -> References отметить 
' Microsoft Excel Object Library
    Set objExcel = GetObject(, "Excel.Application.11") 
    For Each c In Selection.Cells
        i = i + 1
        objExcel.Selection.Cells(i).Copy
        c.Select
        Selection.PasteExcelTable True, True, True
    Next c
End Sub