Tabellenblattname doppelt

Hier ist mein Makro, das bis jetzt gut funktioniert, außer mit dem Tabellenblattnamen.

Dim name
name = Sheets("Kalender").Range("A80") & "." & Range("B80")

Sheets("Kalender").Visible = True
Sheets("Kalender").Select
Sheets("Kalender").Copy Before:=Sheets("Kalender")
Range("A2").Select
ActiveCell.FormulaR1C1 = Sheets("Kalender").Range("A2")
Range("B2").Select
ActiveCell.FormulaR1C1 = Sheets("Kalender").Range("B2")
Sheets("Kalender (2)").Select
Sheets("Kalender (2)").name = name
Sheets("Kalender").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub

Wie funktioniert das, mit dem eins dazuzählen? Die Idee ist gut, aber mit dem Umsetzen habe ich Schwierigkeiten!

Kerstin