一个excel录制宏的疑难问题，请高手指教

来源：百度知道 编辑：UC知道 时间：2024/05/28 09:37:25
原问题：http://zhidao.baidu.com/question/33545823.html
那个最佳答案已经可以 但是有一个缺点 必须在工作表名“Sheet1”下才能运行 请问怎样可以在任意一个工作表名下运行 比如工作表名为“123”或者“一二三”这个宏都能正常使用

谢谢

Sub Macro1()
Dim b As String
b = ActiveSheet.Name
Charts.Add
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SetSourceData Source:=Sheets(b).Range("A:A,B:B"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:=b
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight
ActiveWindow.Visible = False
Charts.Add
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SetSourceData Source:=Sheets(b).Range("A:A,C:C"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:=b
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight
ActiveWindow.Visible = False
Charts.Add
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SetSourceData Source:=Sheets(b).Range(&qu