应用excel服务器表间公式将结果写入Sheet2表界面不跳转

xigang2

小弟遇到一个已困惑我数日的问题，希望能求高人帮帮忙，我使用的是excel服务器2010版本，我在Sheet1表中做了一个订单，在Sheet2表中做了一个打印模版，当我在Sheet1表中做完订单后，直接应用一条表间公式将Sheet1表的电话写到Sheet2表的时候我我希望界面也能切换到Sheet2表，而现在是应用公式后电话号码被写到Sheet2表了，但是界面还是停留在Sheet1表上，我应用表间公式使用的是做了一个按钮，用手工应用表间公式的方式，按钮的代码如下

Private Sub cmdQry_Click()
Dim oAdd As Object
Set oAdd = Application.COMAddIns("ESClient10.Connect").Object
Range("A4").select
oAdd.execQuery ("写入电话")
Set oAdd = Nothing
End Sub