Private Sub Workbook_NewSheet(ByVal Sh As Object)

Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True

Dim ws As Worksheet
Dim i As Integer

For Each ws In ThisWorkbook.Worksheets
    If ws.Name = Format(Date, "dd") & Format(Date, "MM") & Format(Date, "yy") Then End
Next ws

For i = Sheets.Count To 1 Step -1
    If Sheets(i).Visible And TypeName(Sheets(i)) <> "Module" Then
        Sheets(i).Copy After:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = Format(Date, "dd") & Format(Date, "MM") & Format(Date, "yy")
        Sheets(Sheets.Count).Range("D1") = Date
        Exit Sub
    End If
Next i

End Sub