auto name each new sheet based on cell value
 

Need each new sheet's name to be based on cell value.

Should look something like this (but this one doesnt work)


Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim Ws As Worksheet
Ws.Name = Ws.Range("e2").Text
End Sub

auto name each new sheet based on cell value
 

That's ok. Found one that works. But need to change the code to use
text...

This works....

ActiveSheet.Name = Range("e2").Value

But, since its a date, I need this to work (cant use /'s in sheet
name)

ActiveSheet.Name = Text(E2, "mm.dd.yy").Value