Hi malevolent muse,
Try this in the "ThisWorkbook" module:
Private Sub Workbook_Open()
Dim ws As Worksheet, N As String, D As String
D = CStr(Date): D = Replace(D, "/", "-")
N = "Your Text" 'can't be over 31 characters counting the date
For Each ws In ActiveWorkbook.Worksheets
If InStr(1, ws.Name, D) Then Exit Sub
Next 'There can't be slashes in a sheet name
D = CStr(Date): D = Replace(D, "/", "-")
Worksheets.Add(After:=Worksheets(Worksheets.Count)) _
.Name = N & " " & D: End Sub
Directions for running the routine(s) just supplied
Copy the code to the clipboard
Press ALT + F11 to open the Visual Basic Editor.
Open a macro-enabled Workbook or save your Workbook As Macro-Enabled
Select "ThisWorkbook” from the Insert menu
Type "Option Explicit" then paste the code under it
and you're ready to roll
Bookmarks