Here's a set of simple steps... You can just extract the Month name from
the Now() function.

ActiveSheet.Cells.Select
Selection.Copy
Worksheets.Add
Cells.Select
ActiveSheet.Paste
ActiveSheet.Name = "February"




"Dan E." <Dan wrote in message
...
I have a spreadsheet to track time spent on various projects. I would
like
to create a macro (tied to a button) that users can click to copy the
previous months worksheet and rename it to the current month and year.

I.E. I may have a worksheet named "DECEMBER 2005" with current projects
filled in. I would like to copy that sheet and have it renamed to
"JANUARY
2006" if I run the macro in Jan of 2006. Similarly, in FEB of 2006 I
would
like to copy the JANUARY 2006 sheet and rename to FEBRUARY 2006, and so
on.