Excel VBA：从动态工作表中选择图表数据

我正在尝试创建一个程序，将多个数据集加载到它们自己的工作表中，然后根据这些数据创建一个图表。我一直在努力为图表获取合适的数据。我一直在使用计数器标记我的数据集，因为它们被放在一张纸上。 我的工作表名称已定义为如下所示的字符串。程序试图获取数据时出错

Dim CurrentSheet is string
CurrentSheet = ActiveSheet.Name

Charts.Add
ActiveChart.SeriesCollection(1).Values = "=CurrentSheet!$C$2:$C$100000"
ActiveChart.SeriesCollection(1).XValues = "=CurrentSheet!$A$2:$A$100000"

尝试：

后期编辑

更好的方法是，处理工作表名称中包含白色字符的情况：

Dim CurrentSheet As String

CurrentSheet = ActiveSheet.Name
Charts.Add
ActiveChart.SeriesCollection(1).Values = "='" & CurrentSheet & "'!$C$2:$C$100000"
ActiveChart.SeriesCollection(1).XValues = "='" & CurrentSheet & "'!$A$2:$A$100000"

Dim CurrentSheet As String

CurrentSheet = ActiveSheet.Name
Charts.Add
ActiveChart.SeriesCollection(1).Values = "='" & CurrentSheet & "'!$C$2:$C$100000"
ActiveChart.SeriesCollection(1).XValues = "='" & CurrentSheet & "'!$A$2:$A$100000"