auto name each new sheet based on cell value

  • Thread starter Thread starter J.W. Aldridge
  • Start date Start date
J

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
 
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
 
Back
Top