auto name each new sheet based on cell value

[J.W. Aldridge]

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

 

[J.W. Aldridge]

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