Try the following macro
Sub RenameCharts()
StartDate = Application.InputBox("Enter start date", , , , , , , 2)
EndDate = Application.InputBox("Enter end date", , , , , , , 2)
For N = 1 To ActiveWorkbook.Charts.Count
Select Case N
Case Is = 1
ActiveWorkbook.Charts(N).ChartTitle.Text = "Qty sold for the period " & StartDate & " to " & EndDate
Case Is = 2
ActiveWorkbook.Charts(N).ChartTitle.Text = "Purchased for the period " & StartDate & " to " & EndDate
Case Is = 3
ActiveWorkbook.Charts(N).ChartTitle.Text = "Amt received for the period " & StartDate & " to " & EndDate
End Select
Next N
End Sub
You will need to add further pairs of lines to the three examples before the 'End Select' line.
Bookmarks