Trouble with Code to change sheet name

When I open my excel file each day, the sheet is titled with the current date
in this format 070606. I want to change the active sheet name, reguardless
of what it is to "All Records". This code is not working, any suggestions

Sub ChangeFileName()

With ActiveSheet.Select
SheetName = "All REcords"

End Sub