Почему VBA Runtime error 13 Несоответствие типов при запуске диалога DDE

Question

У меня есть этот код:

Public channel As Long

Sub Button1_Click()
  MsgBox "all is OK"

  ' Application.ActiveCell.Font.Bold = True
  channel = Application.DDEInitiate("Excel", "System")

  MsgBox "Conversation started"

End Sub

Почему выражение DDEInitiate дает ошибку 13?