Worked perfectly - Thank You!!

"Chip Pearson" wrote:

Tom,

You'd need to use VBA code to automate this.


Sub RenameSheets()
Dim N As Long
For N = 1 To 31
If N Worksheets.Count Then
Exit For
End If
Worksheets(N).Name = "4." & Format(N, "00") & ".05"
Next N

End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"tojo107" wrote in message
...
I open a workbook each month with a sheet for each day of the
month. Is there
an easy way to name the sheets such as 4.02.05,4.03.05,4.04.05
etc?

Thanks,
Tom