Can anyone tellme why the Datalables wont appear on the chart? Despite me
putting True for Percentage and Category?



Range("H2").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xl3DPieExploded
ActiveChart.SetSourceData Source:=Sheets("CHART
DATA").Range("C3:C51")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "='CHART
DATA'!$B$3:$B$51"
ActiveChart.SeriesCollection(1).Values = "='CHART
DATA'!$C$3:$C$51"
ActiveChart.SeriesCollection(1).XValues = "='CHART
DATA'!$B$3:$B$51"

ActiveChart.Parent.Top = Range("H2").Top
ActiveChart.Parent.Left = Range("H2").Left
ActiveChart.Parent.Width = Range("H2:S26").Width
ActiveChart.Parent.Height = Range("H2:S26").Height

ActiveChart.ChartTitle.Select
ActiveChart.ChartTitle.Text = "LRU By Percentage of
Distribution"

ActiveChart.SeriesCollection.ApplyDataLabels
ActiveChart.SeriesCollection.DataLabels.Select
Selection.ShowPercentage = True
Selection.ShowCategoryName = True

ActiveChart.Legend.Select
Selection.Delete