請問EXCEL與DDE的連結寫入問題

請問各位高手，我想在讀取DDE的數值之後
在EXCEL依序寫入目前時間與DDE的值
網路上爬文，修改出這一段VBA的程式碼
請問在EXCEL中應該怎麼寫
才能在Ring(2)的值大於40的時候
就自動呼叫這個程式?謝謝幫忙

Sub updateFollow()
Dim Rng As Range

On Error Resume Next
'If (TimeValue(Now) < TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub

With 工作表1
.Range("L6:M6").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Set Rng = .[L6].Resize(1, 2)
Rng(1) = "=NOW()"
Rng(2) = "=CATDDE|'FUTOPT<FO>TXFH9 '!TickVol"
Rng.Value = Rng.Value ' 將公式以欄值取代
Rng(1).NumberFormat = "hh:mm:ss"
End With
'If timerEnabled Then Call timerStart
End Sub