Try this
ActiveWorkbook.SetLinkOnData "<DDE link Info e.g \\PCName\Aplication|Topic!'N7:1/0'", "MyMacro"
I've used this a lot to monitor change in values you have to check as it runs macro when value changes not just when it equals 1.
Jezz