Register umbenennen

ich möchte in Excel die Register automatisch umbenennen und zwar nach Kalenderwochen, die in der ersten Tabelle von insgesammt 5 stehen. Ich weiß, daß ich aus dem aktuellen Tabelle das Register umbenennen kann und zwar mit:
Sheets(1).Name = Range("A1").Value
Aber wie kann ich im Sheet 2, 3, 4 und 5 auch einen Wert aus der ersten Tabelle ziehen?? Vielen Dank und ein schönes Fest