Tekst som dataetikette i punktdiagram

Sub ScatterLabels()

Dim Xkoor As Range
Dim Ykoor As Range
Dim Labels As Range
Dim Cell As Range

Dim Sh As Worksheet
Dim Chr As Chart

Dim n As Integer

n = 1

Set Xkoor = Application.InputBox("Vælg data til x-akse", Type:=8)
Set Ykoor = Application.InputBox("Vælg data til y-akse", Type:=8)
Set Labels = Application.InputBox("Vælg labels til datapunkter", Type:=8)

Set Sh = ThisWorkbook.ActiveSheet
Set Chr = Sh.Shapes.AddChart.Chart

With Chr
    .ChartType = xlXYScatter
    .SeriesCollection.NewSeries
    .SeriesCollection(1).XValues = Xkoor
    .SeriesCollection(1).Values = Ykoor
    .SeriesCollection(1).HasDataLabels = True
   
    For Each Cell In Labels
        .SeriesCollection(1).Points(n).DataLabel.Text = Cell.Value
        n = n + 1
    Next

End With
   
End Sub