EXCEL - Scatter Plot - how to label points as data from col A:A (Alt+F11) - Insert Module

 Sub LabelScatterPlot()
    Dim chartObj As ChartObject
    Dim srs As Series
    Dim i As Integer
    
    ' Change "Sheet1" to your sheet name
    Set chartObj = Sheets("Sheet4").ChartObjects(1) ' First chart on the sheet
    Set srs = chartObj.Chart.SeriesCollection(1) ' First data series

    For i = 1 To srs.Points.Count
        srs.Points(i).ApplyDataLabels
        srs.Points(i).DataLabel.Text = Sheets("Sheet4").Range("A" & (i + 1)).Value
    Next i
End Sub