Run time error '1004' - VB

Run   
application-defined   defined 

CreatePie1()

 myShape  Shape
 myObject  ChartObject
 myChart  Chart

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

    Charts.Add      
    myChart.ChartType = xl3DPie
       
    Workbooks().Worksheets().Activate
    
    myChart.SetSourceData Source:=Sheets().Range( & StartRowRev &  & EndRowRev), PlotBy _
        :=xlColumns
    myChart.Location Where:=xlLocationAsObject, :=
    myChart.HasLegend = False
    myChart.ApplyDataLabels :=xlDataLabelsShowLabelAndPercent, LegendKey _
        :=False, HasLeaderLines:=True
  
     Selection.Border
        .Weight = 
        .LineStyle = -
     
    Selection.Interior.ColorIndex = xlNone

     Selection.Font
        . = 
        .FontStyle = 
        .Size = 
     
    Selection.AutoScaleFont = False
     myChart
        .Elevation = 
        .Perspective = 
        .Rotation = 
        .RightAngleAxes = False
        .HeightPercent = 
     
    myObject.Interior.ColorIndex = xlNone
    myChart.PlotArea.
     Selection.Border
        .Weight = xlThin
        .LineStyle = xlNone
     
    Selection.Interior.ColorIndex = xlNone

    myObject.Top = 
    myObject.Left = 
    myObject.Height = 
    myObject. =