Почему макрос не вызывается SetLinkOnData?

Question

Привет всем, я пытаюсь обнаружить изменение в значении, предоставленном ссылкой dde, можете ли вы помочь, пожалуйста!примечание: у меня есть ссылка dde в ячейке A1, поэтому значения автоматически меняются в A1

Sub UpDateDDE()
 Dim Mylink As String
 Dim Procedure As String
  Mylink = "MT4|BID!EURJPY"
  Procedure = "msg"
    With ThisWorkbook.SetLinkOnData Mylink Procedure
End Sub

Sub msg()
  MsgBox "new value detected!"
End Sub