使用VBA删除具有空白系列名称的图例条目

Question

我正在尝试添加一个子例程，该子例程将删除折线图中带有空白名称的系列的图例条目。禁用相关系列时，会出现空白名称，这是通过另一个例程完成的。

我一直在使用下面的代码，但是我最终丢失了没有空白名称的系列的图例条目，而且我不确定我要去哪里哪里？供参考，我总共有五个系列。

  Sub LegendRemover()
  Dim i As Integer
  Dim chtob As ChartObject
  On Error Resume Next

  Call Open_Results

      Set chtob = ActiveSheet.ChartObjects("Chart 8")
      For i = chtob.Chart.SeriesCollection.Count To 1 Step -1
      If chtob.Chart.SeriesCollection(i).Name = "" Then
          chtob.Chart.Legend.LegendEntries(i).Delete
        End If
      Next i

End Sub

提前谢谢！