Tabellenblattname in Abhängigkeit einer Zelle ?

Zu meinem Problem:
Ich will den Tabellenblattnamen in Abhängigkeit von einer Zelle ändern. Habe diese Zeilen in der Recherche gefunden.
worksheet_Change(ByVal target As Excel.Range)

Dim s As String
If target.AddressLocal = "$C$1" Then
s = Range("$C$1").Value
ActiveSheet.Name = s
ActiveSheet.PageSetup.RightHeader = Range("$C$1").Value
End If
End Sub

Dies geht auch solange sich die Zelle auf dem selben Tabellenblatt befindet. Bei mir ist sie aber auf einem anderen bzw. der Wert wird von einer anderen berechnet.
C1 ist =Grundeinstellung!B5+133
In Grundeinstellung!B5 steht ein Datum. Jetzt sollte sich der Tabellenblattname ändern wenn ich in Grundeinstellung!B5 das Datum ändere.

Im voraus Danke für Eure Tips
Oswald