kkal117
10-03-2008, 03:10 PM
I have this code to add a new worksheet based on a template called "POs" when I open the workbook. How do I modify the code so that the new inserted worksheet includes the the current date in the following format yyyymmdd...eg. 20081003 for October 3, 2008. Currently, the new sheet is named "POs (1)", "POs (2)" and so forth.
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("POs").Visible = True
Sheets("POs").Select
Sheets("POs").Copy After:=ActiveSheet
Sheets("POs").Visible = False
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("POs").Visible = True
Sheets("POs").Select
Sheets("POs").Copy After:=ActiveSheet
Sheets("POs").Visible = False
Application.ScreenUpdating = True
End Sub