Sub nosheet()
Sheets(Sheets.Count).Name =
Replace(Sheets("Sheet1").Range("B16").Text,"/","_")
End Sub

--
Regards,
Tom Ogilvy


"ToddEZ" wrote in message
...
I am still having a problem. I think it is because the sheet name will not
allow for a "/" character... hence no 12/31/06. Any ideas?

"Gary''s Student" wrote:

Try:

Sub nosheet()
Sheets(Sheets.Count).Name = Sheets("Sheet1").Range("B16").Value
End Sub

This will rename the "last" sheet based upon the value in Sheet1
--
Gary's Student


"ToddEZ" wrote:

I would like to rename a new sheet as a date populated in cell b16 of
sheet1.

This is what I have thus far: Newsh.Name = Sheets("input
sheet").Range("b16").Value

Anyone know of any work-arounds?

Thanks