Excel 如何让工作簿中的工作表名称与等于该工作表中的b2单元格

下面的sheet名字是sheet1，sheet2，sheet3，。。。。
我想让他变成科室名字 科室名字就在每个sheet里的b2单元格里

说难也难，说不难也不难

Sub aa()
For Each st In Worksheets
st.Name = st.[b2]
Next
End Sub

噢

噢

噢

噢

Sub test()
With ActiveSheet
r = 2
t = .Cells(r, 2).Value
Do Until t = ""
n = Application.WorksheetFunction.CountIf(.Range("b:b"), .Cells(r, 2))
Sheets.Add
.Range("a1:g1").Copy Range("a1")
.Cells(r, 1).Resize(n, 7).Copy Range("a2")
r = r + n
t = .Cells(r, 3).Value
Loop
End With
End Sub
Sub aa()
For Each st In Worksheets
st.Name = st.[b2]
Next
End Sub
这个怎么改才能行