Не могу выполнить макрос слова из Excel

Question

Я просто не могу заставить это работать. Я пытаюсь запустить слово Macro из Excel (перед импортом таблицы). Вот код:

Option Explicit

Sub RunWdMacro()

  Dim WordApp As Word.Application
  Dim WordDoc As Word.Document
  Dim wdFileName As Variant
  Set WordApp = CreateObject("Word.Application")

  wdFileName = Application.GetOpenFilename("Word files ,*.doc;*.docx;*.docm", , _
    "Browse for file containing table to be imported")
  WordApp.Visible = True
  'change TEST to the name of your macro in word
  WordApp.Run "Delcolumnbreaks"

  WordApp.Quit SaveChanges:=wdDoNotSaveChanges
  Set WordApp = Nothing
End Sub

Я предлагаю открыть файл слова, но он выдает ошибку:

 WordApp.Run "Delcolumnbreaks"

С ошибкой «Ошибка времени выполнения» -2147352573 (800200003) Невозможно запустить указанный макрос. Макрос находится в обычном разделе как модуль 1

Есть мысли?

Спасибо