Koggala said:Thanks for your help but i do not want the percentage, i want "label and Value"
Any ideas?
=A2&CHAR(10)&B2
Sub addlabels()
ActiveSheet.ChartObjects("Chart 3").Activate
mycellpointer = 2
For Each p In ActiveChart.SeriesCollection(1).Points
p.ApplyDataLabels Type:= _
xlDataLabelsShowLabel
p.DataLabel.Select
Selection.Text = "=Sheet1!R" & mycellpointer & "C6"
mycellpointer = mycellpointer + 1
Next
End Sub