Dim sh as Worksheet
set sh = Worksheets(Worksheets.count)
Worksheets.Add After:=sh
Worksheets(worksheets.count).Name = Format(date,"yyyymmdd")
sh.Range("A:B").Copy Worksheets(Worksheets.count).Range("A:B")
sh.Range("A1").Value = "Ending Bag Count"
sh.Range("B1").Value = "Ending Baggy Count"

--
Regards,
Tom Ogilvy

"Joan" wrote in message
oups.com...
Hi,
Could anyone tell me how to write a macro that will automatically
copy two colums in an Excel worksheet and at the start of each day
insert them into a new worksheet with the new date on it? The columns

in the new worksheet are named differently than the previous day's
(i.e. Beginning bag count, instead of ending bag count). I've taken
a VB programming course but have not done any programming in Excel yet.

Any help with this would be most appreciated.


Joan