工作表巨集的互換問題??

Question

以下為我的巨集.請各位老師幫我看看該如何修改(我這個按鈕是放在要將資料剪出去的那個工作表)

Private Sub CommandButton1_Click()
Selection.Cut Sheets("sheet2").[A65536].End(xlUp)
Sheets("Sheet1").Select <-------請問這段怎麼回到原工作表內
End Sub

我現在的做法是 sheet1 要 剪資料到 sheet2 工作表內
工作表之視窗切換再回到 sheet1去

問題: 我想做的是~最後切換再回到的視窗 不一定是 sheet1,怎麼改成原來資料是在哪剪切的工作表,就回到那個工作表

再請教 如果也是同樣做工作表的剪貼+貼上 是跨檔案的 如
A檔案 之 A工作表 要貼到 B檔案 之A工作表~這個指令該如何下??

有煩各位老師再次指點!!
謝謝!!

Answer 1

Sheets("Sheet1").Select <
這個改成
Me.Select

2007-03-14 22:54:48 補充：
假設ThisWorkbook是A.xls工作簿

ThisWorkbook.Sheets("A").Range("a1:f10").Copy Workbooks("B.xls").Sheets("A").Range("a1")

2007-03-14 22:56:01 補充：
要剪下請將Copy換成Cut即可

Answer 2

Selection.Cut Sheets(”sheet2”).[A65536].End(xlUp)
這句語法並不會將ActiveSheet(作用中工作表)變更到目標工作表呀
本來就會停留在原來的工作表(作剪下的工作表)
不用再加Sheets(原來的工作表名稱)Select