Rename multiple charts

Hi Community,

Any easy VBA way to rename multiple charts?

E.g. Chart 6 = to Chart1