Hi Chance,

Here is some code

ActiveSheet.Move befo=Worksheets(1)
Range("A3").Value = Format(Date, "dd mmm yyyy")

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Chance224" wrote in message
...
I need a macro that will copy an active sheet and put it in the front of
the
workbook (1st Sheet). I would also like it to put the date in cell A3.
Any
suggestions? I have one that copies a sheet and places it before a
specific
sheet but I'm unsure how to tell it to move it to the beginning.

Thanks,
Chance