使用VBA清除单元格公式时，Excel将closures

我正在使用下面的脚本启动和停止我的RTDfunction。 每个function分配给单独的button。 使用第一个脚本，我将从A2分配值到RTD公式。 我想让RTD在某个时候停下来做一些其他的计算。 因此，使用第二个button，我将清除单元格B2:D2的RTD函数

但是我面对的问题是，只要我使用清除函数，excel就停止了。 有没有解决这个或更好的方法来阻止它？ （我无法清除A2数据，所以现在不能使用A2清除而不使用B2:D2 ）

 Sub Symbol_1_Assign() Dim mw As Worksheet Set mw = Workbooks("StockScreen.xlsm").Sheets("MW") mw.Range("B2").Formula = "=RTD(""pi.rtdserver"", ,A2, ""Last"")" mw.Range("C2").Formula = "=RTD(""pi.rtdserver"", ,A2, ""Volume"")" mw.Range("D2").Formula = "=RTD(""pi.rtdserver"", ,A2, ""OpenInterest"")" End Sub 

清算function：

 Sub Symbol_1_Reassign() Dim mw As Worksheet Set mw = Workbooks("StockScreen.xlsm").Sheets("MW") mw.Range("B2:D2").ClearContents End Sub