Timestamp a worksheet tab?

[nightracer]

Hi

At various points during the day I run a macro to take a copy of a worksheet to show work processed up to that point in the day.

So I start the day with the single sheet that takes in the data and then by days end I might have 6 sheets in the workbook, having taken 5 snapshots during the day.

Is it possible to timestamp those worksheets with the date/time (or just time if easier) they were created as the sheet tab name?

Many thanks, hope that makes sense.
Nightracer

 

[Scott T]

Sheet names can not have / or : in them so I replaced them with the -
Change Sheet1 to the name of your tab

Sub tstab()
mytime = Format(Now, "mm-dd-yy h-mm AM/PM")
Worksheets("[COLOR=#ff0000]Sheet1[/COLOR]").Copy After:=Worksheets(1)
ActiveSheet.Name = mytime
End Sub

 

[nightracer]

Brill, many thanks Scott