[已解决]将工作表分开并以工作簿保存

乐乐2006201506

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$A$2" Then Exit Sub
ActiveSheet.Name = Target.Value
End Sub
这个代码可以实现工作表标签随着A2单元格数据的变化而变化，是不是我刚开始没有说清楚，希望哪位老师能够把这个代码，或者与之类似的代码写入前面最佳答案代码中，让一次性实现我要达到的结果，谢谢。