Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.
Sub SetLabel() Dim s As String With ActiveSheet.ChartObjects(1).Chart With .SeriesCollection(3).Points(1) s = Range("B2").Value .ApplyDataLabels .DataLabel.Text = s End With End With End Sub
Private Sub Workbook_Open() Application.EnableEvents = True Dim wSheet As Worksheet For Each wSheet In Worksheets wSheet.Protect Password:="*********", UserInterFaceOnly:=True Next wSheet 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.