Hi,

Replace the CallAB macro with this one.

Code:
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