We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub chttitles() For Each shp In ActiveSheet.Shapes If shp.Type = 3 Then shp.Chart.HasTitle = True shp.Chart.ChartTitle.Text = shp.Chart.ChartTitle.Text & Chr(10) & "New grading system" End If Next shp End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Search data on excel sheet||11||38|
|Calculate number of months in Excel||13||26|
|Delete row if does not start with 0||43||37|
|Search for terms in Row 1, count the number of cleaned cells by means of a VBA Code||4||20|