Macro to rename sheet tabs

Hello,

I have 31 sheets plus one summary sheet. I want to rename the 31 sheets using a macro for the days of the depend on the Month. I have not got anywhere with it. I have tried having the summary sheet's, column from A1:A31 with the days of the month and renaming the sheets from that. Then just manually entering A1 every month with the first day of the month. Also I really do not need or want weekends but for simplicity I have left them in the workbook. When I run the Macro below it will not take the date I used different date formats but does not change things "Thursday, July 01, 2010" If I put Text in it runs fine.

Any help please

Sub RenameTabs()
' Renames all worksheet tabs with each worksheet's cell A1 contents.
'If cell A1 has no content, then that tab is not renamed.

For i = 1 To Sheets.Count
If Worksheets(i).Range("A1").Value <> "" Then
Sheets(i).Name = Worksheets(i).Range("A1").Value
End If
Next

End Sub

CODE tags, please.

How do you want them named?

Maybe like this:

Please Login or Register  to view this content.

Take a look again at the tab names.

eflynn,

Welcome to the Forum, unfortunately:

Your post does not comply with Rule 2 of our Forum RULES. Don't post a question in the thread of another member -- start your own thread. If you feel it's particularly relevant, provide a link to the other thread. It makes sense to have a new thread for your question because a thread with numerous replies can be off putting & difficult to pick out relevant replies.