Create Bubble Chart Automatically

[Admin]

Hi,

Replace the CallAB macro with this one.

Sub CallAB()
    
    On Error Resume Next
    ActiveSheet.ChartObjects.Delete
    On Error GoTo 0
    ActiveSheet.Shapes.AddChart 'For Excel 2007+ Only
    AssignBubbleSource ActiveSheet.ChartObjects(1), ActiveSheet.Range("A1:D5")
    
End Sub

[PC_BABE]

Hi,

The deafult labeling for the chart is "Y Value". I want it to be NameColumn.

Ive tried several variations of but it crashes. Can you sugget a fix? Thnx

    Next lngRow
    With chtBblChart.Chart
        .ChartType = xlBubble3DEffect
        .ApplyDataLabels = xlDataLabelsShowValue [ShowNameSeries]
    
        .SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis) 'For Excel 2007+ Only
        .SetElement (msoElementPrimaryValueAxisTitleRotated) 'For Excel 2007+ Only
        .SetElement (msoElementDataLabelRight) 'For Excel 2007+ Only
        If blnHeader Then
            .Axes(1, 1).AxisTitle.Text = rngChartSource.Cells(1, rngChartSource.Column + FirstColumn).value
            .Axes(2, 1).AxisTitle.Text = rngChartSource.Cells(1, rngChartSource.Column + SecondColumn).value
        End If
    End With