我的Excel VBA代码显示运行时错误“ 91”，“对象变量或未设置块变量”

Question

运行时错误显示在Activechart.SetSourceData中。我不确定是否如此，因为我在许多工作表上使用图表。一共有11张。

我尝试设置chartObject而不是ActiveChart，但这似乎也不起作用

Sub line1()

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "LIVE " Then

    LastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    ActiveChart.SetSourceData Source:=ws.Range("$A$2:$A" & LastRow & ",$H$2:$H" & LastRow)
End If
Next ws
End Sub