activesheet.Name = Format(Range("F8"),"mmddyy")
or "mm_dd_yyyy"
But you should get the idea.
--
Regards,
Tom Ogilvy
"Brad" wrote in message
...
Try:
Sub RenameWorksheet()
Dim dat As Date
dat = Range("A1").Value '02/09/2004
MsgBox dat
Dim strName As String
strName = Month(dat) & "." & Day(dat) & "." & Year(dat)
ActiveSheet.Name = strName
End Sub
-----Original Message-----
Ok, i'm trying to rename my worksheet to the contents of
cell F8,
which really isn't that big of a deal. However, Cell F8
is a date
formated as "mm/dd/yyyy" so when Excel tries to rename
the worksheet,
if gives me an error saying that it can't rename the
worksheet because
the name contains invalid characters. I'ved tried
reformatting the cell
itself to include only valid characters, but Excel still
interprets it
the with "/" in it. So i know now that I have to tell
Excel to format
the date without the "/" in VBA, but how?
---
Message posted from http://www.ExcelForum.com/
.