Option Explicit
Sub auto_open()
Dim newWks As Worksheet
With ThisWorkbook
.Worksheets("sheet1").Copy after:=.Worksheets(.Worksheets.Count)
End With
Set newWks = ActiveSheet
newWks.Name = "Old Worksheet"
End Sub

It'll work until you have an existing worksheet named "old worksheet". Then
it'll crash on that .name command.

Paulie wrote:

Okay, a bit less long winded this time. Can anyone provide me with code
for opening up an old workbook, making a copy of a worksheet in that
workbook and saving it within that workbook as "old worksheet"?

That much will get me started.

After that I will work on code for updating formulas in the original
worksheet.

Thank you.

--

Dave Peterson