2 gange activate giver fejl

Jeg har altid oplevet at der kom løsning på mine spørgsmål stillet her i Eksperten.
Jeg stillede et spørgsmål http://www.eksperten.dk/spm/803117 hvor jeg får fejlmeldingen når jeg kører makro på hjemmesiden. Spørgsmålet gav ikke noget svar.
Jeg har to cirkeldiagrammer og for den første ser den væsentligste del af makroen således ud:

Sheet1.ChartObjects("Chart 1").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("av1" & ":" & "av" & Val(Sheet1.Range("ae2"))), PlotBy _
        :=xlColumns
                 
    If Val(Sheet1.Range("ae1")) = 0 Or Val(Sheet1.Range("ae1")) > Val(Sheet1.Range("ae2")) Then
        ActiveChart.SeriesCollection(1).Select
        With Selection.Interior
            .ColorIndex = 2
            .Pattern = xlSolid
        End With
    Else
        ActiveChart.SeriesCollection(1).Select
        With Selection.Interior
            .ColorIndex = 2
            .Pattern = xlSolid
        End With
        For i = 1 To Val(Sheet1.Range("ae1"))
            ActiveChart.SeriesCollection(1).Points(i).Select
            With Selection.Interior
                .ColorIndex = 28
                .Pattern = xlSolid
            End With
        Next
    End If
 
   
    If Val(Sheet1.Range("ae1")) > Val(Sheet1.Range("ae2")) Then
        ActiveChart.SeriesCollection(1).Select
          Selection.Interior.ColorIndex = xlNone
    End If
..... ovenstående kører fint og uden fejlmelding

..... jeg lader makroen køre videre for næste cirkeldiagram som giver fejlmelding i denne linie:
  Sheet1.ChartObjects("Chart 4").Activate
Fejlmeldingen er:
Run time error '1004'
Metoden Activate for klassen ChartObject mislykkedes

Jeg får ikke nogensomhelst fejlmelding når jeg kører regnearket hentet fra min lokale pc, men når jeg henter regnearket fra min hjemmeside er det at fejlen som ovenfor beskrevet opstår.

Jeg har prøvet at fjerne delen af makroen for det andet cirkeldiagram og lagt regnearket på hjemmesiden. Her kører makroen fint; så det er altså når jeg to gange i samme makro forsøger med activate. Jeg kan altså ikke hitte ud af hvordan jeg bruger activate til begge cirkeldiagrammer. Er der ikke en vaks Ekspert med lidt hjælp?