Excel VBA 'dim as Variant' won't allow 'for each' looping - excel

Question

I'm in a bit of a trap with my code. I'm trying to delete charts that occupy the same merged cell, but I'm getting an error. The code wont compile for each ScrapChart in AllChartsInBox() if scrapchart isn't set as variant, but then I get Run-time error 91 trying to run ScrapChart.delete.
Why Does Scrapchart have to be set as variant, but SheetChart works fine in the For Each SheetChart In Ws_Charts.ChartObjects loop when it's been set as a ChartObject?
option explicit
Dim NumberofChartsinRange, ChartBoxIndex As Long
Dim SheetChart, AllChartsInBox() As ChartObject
Dim ScrapChart As Variant
Set Chartbox = Ws_Charts.Range("A1:F6")
Ws_Charts.Cells(1,1).Formula2 = formulastring
Chartbox.Merge
Chartbox.HorizontalAlignment = xlRight
Chartbox.VerticalAlignment = xlBottom
NumberofChartsinRange = 0
If Ws_Charts.ChartObjects.Count = 0 Then
Else
ReDim AllChartsInBox(Ws_Charts.ChartObjects.Count - 1)
For Each SheetChart In Ws_Charts.ChartObjects
If Not Intersect(SheetChart.TopLeftCell, Chartbox) Is Nothing Then
NumberofChartsinRange = NumberofChartsinRange + 1
Set AllChartsInBox(ChartBoxIndex) = SheetChart: ChartBoxIndex = ChartBoxIndex + 1
End If
Next
End If
If NumberofChartsinRange > 1 Then
For Each ScrapChart In AllChartsInBox
ScrapChart.Delete
Next ScrapChart
End If

Answer 1

You can do this in a single pass through the ChartObjects collection:
Dim SheetChart, co As ChartObject, ChartBox As Range
Dim tmp As ChartObject, foundOne As Boolean, i As Long
Set ChartBox = Ws_charts.Range("A1:F6")
Ws_charts.Cells(1, 1).Formula2 = formulastring
ChartBox.Merge
ChartBox.HorizontalAlignment = xlRight
ChartBox.VerticalAlignment = xlBottom
For i = Ws_charts.ChartObjects.Count To 1 Step -1
Set co = Ws_charts.ChartObjects(i)
If Not Intersect(co.TopLeftCell, ChartBox) Is Nothing Then
If Not foundOne Then 'first chart found?
Set tmp = co
foundOne = True
Else
'multiple charts - delete the first one and this one...
If Not tmp Is Nothing Then tmp.Delete
co.Delete
End If
End If
Next i