Sub test()
ActiveSheet.Cells.Copy
Sheets.Add.Name = "lenom " & Day(Date) & "_" & Month(Date) & " " & Year(Date)
ActiveSheet.Paste
End Sub
Sub test()
lenom = ActiveSheet.Name & " "
ActiveSheet.Cells.Copy
Sheets.Add.Name = lenom & Day(Date) & " " & Month(Date) & " " & Year(Date)
ActiveSheet.Paste
End Sub
Sub test()
lenom = ActiveSheet.Name & " "
ActiveSheet.Cells.Copy
Sheets.Add.Name = lenom & Day(Date) & "-" & Format(Date, "mmmm") & "-" & Year(Date)
ActiveSheet.Paste
End Sub