Hallo Thomas
Nutze doch einfach die Uhrzeit noch mit.
Sheets(ActiveWorkbook.Worksheets.Count).Name = Replace(Now, ":", "|")
PS: Leider nimmt der Sheetname keine Doppelpunkte an, daher muss dieder mit Replace umgewandelt werden.
Gruß Mr. K.