vba获取计算机工作组名称,在工作组的每个工作表中执行一次指定宏

是这样的意思么？

Dim SelShts As Sheets

Dim Sht As Worksheet

Sub 临时()

Application.ScreenUpdating = False

ActiveWorkbook.Names.Add Name:="位置", RefersToR1C1:="=R1C1"

Sheets("引用表").Range("B2").Copy

Application.Goto Reference:="位置"

Sht.Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

ActiveWorkbook.Names("位置").Delete

Application.ScreenUpdating = True

End Sub

Sub Call_Macro()

Set SelShts = ActiveWindow.SelectedSheets

For Each Sht In SelShts

Call 临时

Next

End Sub