Application.DDETerminate (Word)

Closes the specified dynamic data exchange (DDE) channel to another application.

DDETerminate (Channel)

Channel: The channel number returned by the DDEInitiate method.

Dim lngChannel As Long 
 
lngChannel = DDEInitiate(App:="Excel", Topic:="System") 
DDEExecute Channel:=lngChannel, Command:="[New(1)]" 
DDETerminate Channel:=lngChannel