Blattname ändern

ein Worksheet soll den Namen einer Zelle erhalten. Zur Zeit erfolgt das über ein Steuerelement:

Range("M3").Select
ActiveSheet.Select
ActiveSheet.Name = "C" & Range("M3")

Ist es möglich, dieses zu automatisieren, so dass zB. das Blatt umbenannt wird, wenn nach Eingabe in M3 eine andere Zelle markiert wird oder ähnlich...
ich möchte nach Möglichkeit das Steuerelement einsparen. Ich kann die ganze Geschichte nicht mit WorkSheet.Activate lösen, da der Zellinhalt von M3 ja erst bei aktivierten Blatt geändert wird. Gibts hierfür eine Lösung ?