エクセル ＶＢＡで 再計算をコントロールしたい

質問

早速ですが。シートは　ORＧDATA　と　計算　の２枚
ORGDATA　は　WEB経由で　秒単位で　７セルほどのデータを受信します。
それを、５分単位で　データを集約し　７セルほどのデータとして、計算シートに　コピーで　送ります。
計算シートは、生データは　７セルの　２万行　Ｉ列から　ＢＵ列　５０行？位数式が　埋まっています。

基本　ORGDATAシートは　Worksheet_Calculate()　で　受信しますので、計算を止められません。
で、計算シートの　再計算を止めて、データが送り込まれたとき（５分ピッチ）のみ　再計算させたい。
が　リクエストです。

下記が　やってみたことの要約です。
Workbook_Open()

５分タイマーセット

Application.Calculation = xlCalculationAutomatic
Me.Worksheets("計算").Select
Me.Worksheets("計算").Activate
ActiveSheet.EnableCalculation = False　
これが機能してないような？タスクバーに再計算してる％表示が出ている。

Me.Worksheets("orgdata").Select

データ受信、５分後のタイマーで

endsisu = keisan.Cells(1000, 2).End(xlDown).Row + 1
orgdata.Range("a4:ｇ4").Copy Destination:=keisan.Range("b" & endsisu)
keisan.Range("i" & endsisu - 2 & ":bu" & endsisu - 2).Copy
keisan.Range("i" & endsisu & ":bu" & endsisu).PasteSpecial Paste:=xlPasteFormulas
ここまでは　実行される。
下記のどちらかで　ＶＢエラー400（タイマーで　実行しているから）
keisan.Range("i" & endsisu - 2 & ":bu" & endsisu).Select
Selection.Calculate

要は　OREGDATAは　常時再計算ＯＮ
計算シートは　常時再計算ＯＦＦで　データが送り込まれた時だけ　再計算で　済んだら　ＯＦＦ

が希望なのですが。

ご教示願えれば助かります。

回答No.1

karorumon

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1154475771

上記リンクが参考になるのかな？と思います。