Hjemmesideproblem med makro

Jeg har følgende makro ved to cirkeldiagrammer:
Sub Makro2()
[o19] = ""
If [ba1] = 1 Then
If [p10] <= [ac3] Then
MsgBox ("Du kan starte på en ny omgang! Resultatlisten slettes")
[ac1] = 0
[ac2] = 0
[aa1] = 0
[ab1] = 0
[aa2] = 0
[ab2] = 0
[ac3] = 0
  End If

ActiveSheet.Calculate
    ActiveSheet.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
   
    ActiveSheet.ChartObjects("Chart 4").Activate
   
    ActiveChart.ChartArea.Select
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("aw1" & ":" & "aw" & Val(Sheet1.Range("ag2"))), PlotBy _
        :=xlColumns
         
    If Val(Sheet1.Range("ag1")) = 0 Or Val(Sheet1.Range("ag1")) > Val(Sheet1.Range("ag2")) 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("ag1"))
            ActiveChart.SeriesCollection(1).Points(i).Select
            With Selection.Interior
                .ColorIndex = 28
                .Pattern = xlSolid
            End With
        Next
    End If
   
    If Val(Sheet1.Range("ag1")) > Val(Sheet1.Range("ag2")) Then
        ActiveChart.SeriesCollection(1).Select
          Selection.Interior.ColorIndex = xlNone
    End If
 
    Range("y15:At22").Copy Destination:=Range("b20:w27")
    Range("o20").Select
    [ba1] = 0
  End If
 
  Range("o20").Select
End Sub

..... Jeg har ingen problemer med makroen når regnearket som er gemt på min egen PC åbnes og aktiveres. Derimod får jeg fejlmelding når jeg åbner regnearket fra min hjemmeside og aktiverer makroen. Jeg får følgende fejlmelding:
Run time error '1004'
Metoden Activate for klassen ChartObject mislykkedes.
Er der et godt bud til løsning af problemet?