How do I create date-named sheets with macro

[Isko106]

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

[Ratslinger]

Edited for clarity. Please use toolbar icon preformatted text for this.

[mikekaganski]

You may use Format function for this.

[Isko106]

wow, it worked. thanks!