Nsryjdtyk

I am getting an Automation error when trying to add a chartobject in VBA. The weird thing is if I try the same thing with much less data, it works perfectly, but if the number of data increases (say 100 rows), it generates the automation error. The problem seems to come from this line according to the debugger:

Set Graph = ActiveSheet.ChartObjects.Add(Left:=400, Top:=100, Width:=390, Height:=250)

Here is the full code:

Sub Create_Framework()



    Dim Graph As ChartObject

    Dim Data As Range

    Dim SingleSheet As Worksheet



    Application.ScreenUpdating = False





    'Creating Net Columns

    Columns("G:G").Select

    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

    Range("G2").Value = "Net Hedgers"

    Range("H2").Value = "Net Funds"





    'Net Hedgers Formula

    Range("G3").Select

    Do

        ActiveCell.Value = ActiveCell.Offset(0, -4).Value - ActiveCell.Offset(0, -3).Value

        ActiveCell.Offset(1, 0).Select

    Loop Until ActiveCell.Offset(0, -5).Value = 0





    'Net Funds Formula

    Range("H3").Select

    Do

        ActiveCell.Value = ActiveCell.Offset(0, -3).Value - ActiveCell.Offset(0, -2).Value

        ActiveCell.Offset(1, 0).Select

    Loop Until ActiveCell.Offset(0, -6).Value = 0



    'Alignment

    Columns("A:Z").HorizontalAlignment = xlCenter



    'Adding Other Sheets

    Worksheets.Add After:=Sheets(Sheets.Count), Count:=6





    'Renaming

    Worksheets(2).Name = "LHedgers"

    Worksheets(3).Name = "SHedgers"

    Worksheets(4).Name = "LFunds"

    Worksheets(5).Name = "SFunds"

    Worksheets(6).Name = "Net Hedgers"

    Worksheets(7).Name = "Net Funds"





    'Copy Data From Main Sheet To Created Sheets

    Worksheets(1).Activate

    Range("B2", Range("B2").End(xlDown).Offset(0, 7)).Select

    Selection.Copy



    For Each SingleSheet In Worksheets

        If SingleSheet.Name <> "Main" Then

            SingleSheet.Activate

            SingleSheet.Range("B2").PasteSpecial

            SingleSheet.Columns("A:Z").AutoFit

        End If

    Next SingleSheet





    'Move Data To Selected Rows

    For Each SingleSheet In Worksheets

        If SingleSheet.Name <> "Main" Then

            SingleSheet.Activate

            ActiveWindow.DisplayGridlines = False

            Range("B2", Range("B2").End(xlDown).Offset(0, 7)).Cut Range("B25")

            Cells.Select

            Selection.Font.Size = 10

            Selection.Font.Name = "Calibri Light"

        End If

    Next SingleSheet





    'Draw Charts & AutoFit Them

    Sheets(2).Activate

    Set Graph = ActiveSheet.ChartObjects.Add(Left:=400, Top:=100, Width:=390, Height:=250)

    Graph.Chart.SetSourceData Source:=Union(Range("C26", Range("C26").End(xlDown)), Range("I26", Range("I26").End(xlDown)))

    Graph.Chart.SeriesCollection(2).AxisGroup = xlSecondary

    Graph.Chart.HasAxis(xlCategory, xlSecondary) = True

    Graph.Chart.ChartType = xlLine