Oh Wise Ones,

I have some code below I got from a previous post of Toms:

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

Which I tried to modify as such (the sheet is named "default")

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

also tried
Sheets("default").Name =Range("B16").Text,"/","_")

Well! it will have no part of that. The whole macro is red fonted in the
editor
basically I have a date in cell B16 formated as 03/07/07 and I want to
rename the tab as 03_07_07 (I know I can't have "/") but I cant get it to
reformat. Any help is appreciated

Mike