【急】关于夸表执行宏命令解决办法

【急急急】关于夸表执行宏命令
我的宏命令在A表里面,然后在A表中把宏命令加到菜单栏的按钮上了,这样打开其他的excel都有这个按钮.(为了防止一次次导入模块的麻烦操作)
我要处理B表的东西,只打开B表,点击按钮,宏命令默认打开A表,
结果直接处理A表了
怎样做才能在B表中使用宏命令能处理B表的内容呢!
上代码

VB code

Sub WebDiv()'将Researchercomments中的nonthingnew分离出来Dim i, finalColume As IntegerDim aRow, aColume As IntegerDim bRow As IntegerThisWorkbook.Worksheets(1).ActivateaRow = Range("A1").CurrentRegion.Cells.Rows.Count                               '有效单元格的行数aColume = Range("A1").CurrentRegion.Cells.Count / aRow                          '有效单元格的列数'查找表头的"ResearcherComments"项finalColume = 0For i = 1 To aColume    If Trim(ActiveSheet.Cells(1, i)) = "ResearcherComments" Then        finalColume = i        ActiveSheet.Name = "Test Sheet1"        ActiveSheet.Rows("1:1").Select        ActiveSheet.Rows("1:1").Copy        If ThisWorkbook.Worksheets.Count < 2 Then            ThisWorkbook.Worksheets.Add after:=ThisWorkbook.Worksheets(1)        End If        ThisWorkbook.Worksheets(2).Activate        ActiveSheet.Cells(1, 1).Select        ActiveSheet.Paste        ActiveSheet.Name = "NoProjects"        ThisWorkbook.Worksheets(1).Activate        Exit For    End IfNext iIf finalColume = 0 Then Exit Sub'如果查找不到表头的"ResearcherComments"则终止程序bRow = 1For i = 2 To aRowIf i > aRow Then Exit ForIf Trim(ActiveSheet.Cells(i, finalColume)) = "Nothing New" Then    ActiveSheet.Rows(Trim(i) & ":" & Trim(i)).Select    ActiveSheet.Rows(Trim(i) & ":" & Trim(i)).Cut    ThisWorkbook.Worksheets(2).Activate    ActiveSheet.Cells(bRow + 1, 1).Select    ActiveSheet.Paste    bRow = bRow + 1    ThisWorkbook.Worksheets(1).Activate    ActiveSheet.Rows(Trim(i) & ":" & Trim(i)).Select                        '选中原先的空行(剪切并粘贴后变成空行)    ActiveSheet.Rows(Trim(i) & ":" & Trim(i)).Delete Shift:=xlUp            '删除,并将表格往上提    aRow = aRow - 1End IfNextEnd Sub