Sub bubble()
' bubble Macro for bubble chart
Dim Lastrow As Long, ws As Worksheet, wsRD As Worksheet, wsChart As Worksheet
Dim cht As ChartObject, currRow As Integer
Dim ch As Shape, SeriesNum As Integer
On Error GoTo ExitSub
For Each ws In ActiveWorkbook.Sheets
    If Left(ws.Name, 12) = "Raw Data SEA" Then
        Set wsRD = ws
    End If
    If Left(ws.Name, 10) = "SEA bubble" Then
        Set wsChart = ws
    End If
Next ws
Lastrow = wsRD.Cells(Rows.Count, 1).End(xlUp).Row
Set ch = wsChart.Shapes(1)
ch.Name = "SEACht"
SeriesNum = 1
For currRow = 2 To Lastrow
    ch.Chart.SeriesCollection.NewSeries
    ch.Chart.FullSeriesCollection(SeriesNum).Name = wsRD.Cells(currRow, 1)
    ch.Chart.FullSeriesCollection(SeriesNum).XValues = wsRD.Cells(currRow, 2)
    ch.Chart.FullSeriesCollection(SeriesNum).Values = wsRD.Cells(currRow, 4)
    ch.Chart.FullSeriesCollection(SeriesNum).BubbleSizes = wsRD.Cells(currRow, 3)
    SeriesNum = SeriesNum + 1
Next currRow
'Format Legend
    ch.Chart.PlotArea.Select
    ch.Chart.SetElement (msoElementLegendBottom)
    ActiveWorkbook.Save
'Format X and Y axes
    ch.Chart.Axes(xlCategory).Select
    ch.Chart.Axes(xlCategory).MinimumScale = 0
    ch.Chart.ChartArea.Select
    ch.Chart.Axes(xlValue).Select
    ch.Chart.Axes(xlValue).MinimumScale = 0
    Application.CommandBars("Format Object").Visible = False
    ActiveWorkbook.Save
' Format datalabels
    ch.Chart.ApplyDataLabels
    ch.Chart.FullSeriesCollection(1).DataLabels.Select
    ch.Chart.FullSeriesCollection(1).HasLeaderLines = False
    Application.CommandBars("Format Object").Visible = False
    ActiveWorkbook.Save
' Add charttitle
    ch.Chart.SetElement (msoElementChartTitleAboveChart)
    ch.Chart.Paste
    ch.Chart.ChartTitle.Text = _
        "Properties operating exp - RSF and Building Age Factors"
    ActiveWorkbook.Save
ExitSub:
End Sub