Excel VBA modify code to let user select a chart with mouse (instead of editing chart name in code)

The first code needs the user to select a chart to start the routine.
If no chart is selected, a message box appears: