Trouble with Code to change sheet name

[JOUIOUI]

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

[Don Guillett]

activesheet.name="All Records"

--
Don Guillett
SalesAid Software
[email protected]
"JOUIOUI" <[email protected]> wrote in message
news:[email protected]...
> 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

[Charlie]

ActiveSheet.Name = "All Records"

"JOUIOUI" wrote:

> 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

[Tom Ogilvy]

Sub ChangeFileName()


ActiveSheet.Name = "All REcords"

End Sub

--
Regards,
Tom Ogilvy


"JOUIOUI" wrote:

> 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