Visual Basic para Aplicaciones - Mensaje excel

Dim wrdApp As Word.Application

Dim wrdDoc As Word.Document

openloc = dir & "Formulario.dotx"

Set wrdApp = CreateObject("Word.Application")

wrdApp.Visible = True

Set wrdDoc = wrdApp.Documents.Open(openloc)

Dim pathExcel As String

pathExcel = dir & "DataLyomega.xlsx"

Dim objExcel As New Excel.Application

Dim exWb As Excel.Workbook

Set exWb = objExcel.Workbooks.Open(pathExcel)

'a continuación escribo en el marcador del word un dato que se encuentra en una celda de una hoja del excel especificado:

WriteBookmarkFF "bmSalesManager", exWb.Sheets("hojaCommercial").Range("C" & 4).Text, wrdDoc

'y así con más datos, ya sean numéricos, strings..

'quizás el problema se encuentre al cerrar el libro?

exWb.Close

Set exWb = Nothing

Set wrdDoc = Nothing

Set wrdApp = Nothing

c_File                                              ' --- Aqui esta la ruta y el nombre del libro EXCEL'

c_book                                              ' --- Solo tiene el nombre del libro'

Workbooks.Open Filename:=c_File, Origin:=xlWindows  ' --- Abro el Libro EXCEL

If ActiveWorkbook.ReadOnly Then                     ' --- Miro si el libro esta solo de lectura

    Mail_Outlook MAIL_Uso, c_Book

Else                                                ' --- Aqui trabajo con el libro

    (Aqui hago cosas)

End If

Windows(c_Book).Activate                            ' --- Pongo el libro activo que he abrierto

ActiveWorkbook.Save                                 ' --- Guarda los cambios

ActiveWindow.Close                                  ' --- Cierro el libro  que he abierto