Public Sub addPoint(stddev As Double, correlation As Double, symbol As String)
Dim sr As Series
Dim r As Double
Dim arrX As Variant
Dim arrY As Variant
With Me.sh
Set sr = .SeriesCollection.NewSeries
With sr
.HasDataLabels = True
.XValues = stddev * correlation
.Values = stddev * Sin(WorksheetFunction.Acos(correlation))
.MarkerStyle = xlMarkerStyleCircle
.MarkerSize = 5
With .Points(1).DataLabel
.Text = symbol
.Position = xlLabelPositionAbove
.Font.Size = 10
End With
End With
End With
End Sub