So when you copy to the new sheet you want to save it such that the date does
NOT change when it is opened next time?

Use this macro
Sub Macro2()
Worksheets("Sheet1").Select
Cells.Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub
"3Nails" wrote:

I would like to save the current date in cell A1 and not have it change,
regardless of when I open the sheet. I copy the current sheet for the next
day's activity. When I open the new sheet the next day I would like the new
sheet have the new current date and save it as well. Any quick fix for this?
Thanks.....