Run time error '1004' 
application-defined or object defined error

Sub CreatePie1()

Dim myShape As Shape
Dim myObject As ChartObject
Dim myChart As Chart

Set myShape = ActiveSheet.Shapes( 1 )
Set myObject = ActiveSheet.ChartObjects( 1 )
Set myChart = myObject.Chart


    Charts.Add      'Revenue Chart
    myChart.ChartType = xl3DPie
       'set focus on sheet1
    Workbooks("ro_YTD_Revenue_Pie_Chart.xls").Worksheets("sheet1").Activate
    
    myChart.SetSourceData Source:=Sheets("Sheet1").Range("E" & StartRowRev & ":F" & EndRowRev), PlotBy _
        :=xlColumns
    myChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
    myChart.HasLegend = False
    myChart.ApplyDataLabels Type:=xlDataLabelsShowLabelAndPercent, LegendKey _
        :=False, HasLeaderLines:=True
  
    With Selection.Border
        .Weight =  1 
        .LineStyle = - 1 
    End With
    Selection.Interior.ColorIndex = xlNone

    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size =  8 
    End With
    Selection.AutoScaleFont = False
    With myChart
        .Elevation =  45 
        .Perspective =  30 
        .Rotation =  120 
        .RightAngleAxes = False
        .HeightPercent =  100 
    End With
    myObject.Interior.ColorIndex = xlNone
    myChart.PlotArea.Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlNone
    End With
    Selection.Interior.ColorIndex = xlNone
    
    'myObject.ChartArea.Select
    myObject.Top =  89 
    myObject.Left =  0 
    myObject.Height =  457 
    myObject.Width =  723 


End Sub