Excel: Bubble Chart Macro

Apparently the only way to lable XY chart objects sensibly in MS Excel is by writing a macro.  Also the only way to create a Bubble chart without loosing your marbles is also by writing a macro. So I wrote the following macro based on Tom Hollander's blog post.

'The following routine assumes that you have a 5 column data selection with a header column 'Column 5 defines the color category by setting the color value c based on the cell value of column 5 Public Sub CreateMultiSeriesBubbleChart() If (Selection.Columns.Count <> 5 Or Selection.Rows.Count < 3) Then MsgBox "Selection must have 5 columns and at least 2 rows" Exit Sub End If Dim bubbleChart As ChartObject Set bubbleChart = ActiveSheet.ChartObjects.Add(Left:=Selection.Left, Width:=600, Top:=Selection.Top, Height:=400) bubbleChart.Chart.ChartType = xlBubble Dim r As Integer For r = 2 To Selection.Rows.Count Dim c If Selection.Cells(r, 5).Value = "red" Then c = RGB(100, 0, 0) ElseIf Selection.Cells(r, 5).Value = "green" Then c = RGB(0, 100, 0) Else c = RGB(0, 0, 100) End If With bubbleChart.Chart.SeriesCollection.NewSeries .Name = "=" & Selection.Cells(r, 1).Address(External:=True) .XValues = Selection.Cells(r, 2).Address(External:=True) .Values = Selection.Cells(r, 3).Address(External:=True) .BubbleSizes = Selection.Cells(r, 4).Address(External:=True) .Interior.Color = c .ApplyDataLabels .DataLabels.ShowSeriesName = True .DataLabels.ShowValue = False .DataLabels.Position = xlLabelPositionCenter End With Next bubbleChart.Chart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis) bubbleChart.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "=" & Selection.Cells(1, 2).Address(External:=True) bubbleChart.Chart.SetElement (msoElementPrimaryValueAxisTitleRotated) bubbleChart.Chart.Axes(xlValue, xlPrimary).AxisTitle.Text = "=" & Selection.Cells(1, 3).Address(External:=True) bubbleChart.Chart.SetElement (msoElementPrimaryCategoryGridLinesMajor) bubbleChart.Chart.Axes(xlCategory).MinimumScale = 0 End Sub