ActiveChart benennen

wie muss ich folgenden Makro ändern, wenn ich ein ActiveChart mit dem Zellinhalt aus einem anderen Tabellenblatt benennen will?

StandardModule: Modul1

Sub WksName()
ActiveSheet.Name = Range("A1").Value
End Sub

Vielen Dank für Eure Hilfe,

Janine