SetSourceData error with pie chart

[ValuationMan]

I want to create a pie chart and set the source data. I've spent a long time searching, with this being the most helpful. I keep getting this error, "run time error 2147221080 (800401a8): automation error" for the following code.

Sub createchart()



Charts.Add





With ActiveChart

    .ChartType = xlPie

    .Location where:=xlLocationAsObject, Name:="Sheet1"

    .SetSourceData Source:=Range("Sheet1!A2:A7,Sheet1!B2:B7"), PlotBy:=xlColumns

End With



End Sub

 

[ValuationMan]

I figured out the issue. I had to change the order of the code. It only worked with the following order: .SetSourceData, .ChartType, .Location

With ActiveChart
    .SetSourceData Source:=Sheets("Sheet1").Range("A2:A7,B2:B7"), PlotBy:=xlColumns
    .ChartType = xlPie
    .Location where:=xlLocationAsObject, Name:="Sheet1"
End With