Sub copysheetandnamedate()
myname = Format(Date, "mm-dd-yy")
ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Name = myname
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Jeff Parrott" wrote in message
...
I have a workbook that I do not use every day, but when I use it I need to
copy the contents of the last sheet to a new worksheet and then name the
new
sheet with the current date. What I have now is very simple, since the
worksheet I want to copy is always the active sheet I just used the
following:

ActiveSheet.Copy After:=ActiveSheet

Now I want to name the new sheet whatever the current date is. Any ideas?

--
Whether you think you can or cannot, you are right. - Henry Ford