Hi all,

I need a macro to:

Copy the latest worksheet, (not a specific one each time)
Rename the worksheet to the contents of a cell (i.e. a date)


Any help with code?

This should start you off in the right direction.
Tell me what you don't like about it and we will go from there.

Sub TryThis()

Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets(Sheets.Count).Range("A1").Value

End Sub
--
Allllen


"henry" wrote:

Hi all,

I need a macro to:

Copy the latest worksheet, (not a specific one each time)
Rename the worksheet to the contents of a cell (i.e. a date)


Any help with code?