ChartObject will not add to the activesheet when data set is too large...

Hello,

Here is a good one I suspect.

I wasnt to graph a large quantity of data. I have made a macro that successfully plots a small subset of my data in an organized fashion. I always use a small subset of data to create my macros and then test on the full data set to confirm that there are no bugs. Usually I have no issues scaling up. But this time I cant understand why my chart object will not be created if my data size is too large. I am not trying to plot more than the 250 graphs at once --> just FYI.

To explain my problem will be too difficult so I have attached the small subset of test data and the full size data for comparison.

I hope someone can give me an answer as to why this is happening.

My macro code is below.

"test" file is the large file --> Macro will not create the chart object in this workbook.
"small book2" is the small file --> Macro will create the chart object in this workbook.

Thanks!!!

Sub Macro9()
'
Range("A1").Select

Set FindRng = ActiveSheet.UsedRange
With FindRng
    Set c = ActiveSheet.UsedRange.Find(What:="AAAA", After:=FindRng.Cells(1, 1), LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
    If Not c Is Nothing Then
            First = c.Address
        On Error Resume Next
        Set rng = c
        Do
        Set rng = Union(rng, c)
        Set c = ActiveSheet.UsedRange.FindNext(c)
        Loop While Not c Is Nothing And c.Address <> First
    End If
End With
    rng.Select
LastCol3 = Selection.Count

With ActiveSheet
        LastRow = Range("A1048576").End(xlUp).Row
        Range("A5").Select
        LastRow2 = Range(Selection, Selection.End(xlDown)).Count
        Set Rngx = .Range("A6:A" & LastRow)
End With
        
Range("A1").Select
Cells.Find(What:="RunTime", After:=ActiveCell, LookIn:=xlValues, LookAt _
    :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 1).Select

'Do Until ActiveCell.Offset(-1, 0) = ""
If Not ActiveCell = "" Then

With ActiveSheet.ChartObjects.Add(Left:=100, Width:=550, Top:=75, Height:=325)
    .Chart.ChartType = xlXYScatterSmoothNoMarkers
    Set a = Selection
    For x = 1 To LastCol3
        Set Rngy = ActiveCell.Range("A1:A" & LastRow2 - 1)
        .Chart.SeriesCollection.NewSeries
        .Chart.SeriesCollection(x).XValues = Rngx
        .Chart.SeriesCollection(x).Values = Rngy
        .Chart.SeriesCollection(x).Name = ActiveCell.Offset(-5, 0)
        .Chart.SeriesCollection(x).Format.Line.Weight = 1
        .Chart.Axes(xlValue, xlPrimary).HasTitle = True
        .Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = ActiveCell.Offset(-1, 0)
        .Chart.Axes(xlValue, xlPrimary).AxisTitle.Font.Size = 14
        .Chart.Axes(xlValue, xlPrimary).AxisTitle.Font.Bold = True
        .Chart.Axes(xlCategory, xlPrimary).HasTitle = True
        .Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Run Time (sec)"
        .Chart.Axes(xlCategory, xlPrimary).AxisTitle.Font.Size = 14
        .Chart.Axes(xlCategory, xlPrimary).AxisTitle.Font.Bold = True
        .Chart.Legend.Font.Bold = True
        .Chart.Legend.Font.Size = 12
        .Chart.HasTitle = False
        ActiveCell.Offset(0, 1).Select
    Next x
End With
Else
ActiveCell.Offset(0, 1).Select
End If
'Loop
End Sub

Maybe I should mention, the graph to be plotted will only plot columns which has "AAAA" as the header. When the Loop is functional (I commented it out) it will run down all the columns and plot separate charts for each different header.

Bumping to the top...

If anyone needs any other information, please ask.

Thanks!

Okay Andy. That did work. I thought that the cahrt object was independant from the current region but apparently not.

Thank you again.