It must be something like this except that the serial numbers are converted to a date.
Sub NameSheets
Sheets = ThisComponent.Sheets
Count = Sheets.Count
for i = 0 to Count - 1
Sheet = Sheets.getByIndex(i)
Sheet.Name = CStr(i + 43259)
next i
End Sub