Scattered Chart - Adding Data Labels to selected points

Select the chart and run such sample code

Sub test()
Dim wherelabels, i&
wherelabels = Range("D2:D" & Cells(Rows.Count, "D").End(xlUp).Row).Value
With ActiveChart.SeriesCollection(1)
  For i = 1 To UBound(wherelabels)
    If wherelabels(i, 1) = "Yes" Then .Points(i).ApplyDataLabels
  Next i
End With
End Sub

adopt to your needs

Cześć Marcin,

Try such version:

Sub test()
Dim wherelabels, i&, rng As Range
wherelabels = Range("D2:D" & Cells(Rows.Count, "D").End(xlUp).Row).Value
Set rng = Range("A2:A" & Cells(Rows.Count, "D").End(xlUp).Row)
With ActiveChart.SeriesCollection(1)
  For i = 1 To UBound(wherelabels)
    If wherelabels(i, 1) = "Yes" Then
      .Points(i).ApplyDataLabels
      .Points(i).DataLabel.Text = "=" & rng.Cells(i).Address(external:=True)
    End If
  Next i
End With
End Sub