copy and date to new sheet

[kendals]

Hi, I have a workbook, i would like to copy from a sheet and then paste to a new sheet and date it with the current day.

how can do this?

thanks
Kendals

 

[Lewiy]

I assume that you are looking for a VBA solution. Do you want to copy the whole sheet? Where do you want the date to go?

 

[kendals]

vba

yes, thats right a vba. The date needs to be in the tab name of the sheet and in the sheet itself in a cell so the date can be seen.

 

[Lewiy]

Try this:

Sub NewSheetAndDate()
Dim sh As Worksheet
Dim nsh As Worksheet
Set sh = Sheets("Sheet1")
Set nsh = Worksheets.Add
sh.Cells.Copy Destination:=nsh.Cells
nsh.Name = Format(Date, "dd-mm-yy")
nsh.Range("A1") = Date
End Sub

 

[kendals]

thanks
works good.

Kendals