Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention. Check out this how-to article for more information.
Sub DataLabels_Remove() Dim ChtObj As ChartObject Dim i As Integer Dim ser As Series i = 0 For Each ChtObj In ActiveSheet.ChartObjects With ChtObj.Chart For Each ser In .SeriesCollection ser.ApplyDataLabels (xlDataLabelsShowNone) Next ser End With Next End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.