The simplest workaround:
Code:
Sub TestDDE ()
As Long Dim lngChannel
ObjWord As Object Dim
Set objWord = CreateObject ("Word.Application")
lngChannel DDEInitiate = ("WinWord", "System")
'Here your DDE actions
DDETerminate lngChannel
objWord.Quit
Set objWord = Nothing
End Sub
The procedure runs without errors for me. I am sure that you too were looking for the same code. Also I checked your code..
lngChannel DDEInitiate = ("Excel", "System")
If I open Excel before this line continues to run the code. I think that you should try changing the variables.
Bookmarks