Mike,

It is not exactly the same, I added a time stamp so that if re-run on the
same day it wouldn't fail on an existing name.

--
HTH

Bob Phillips

wrote in message
...
Bob,
The code you just posted is the exact same as the first one
you posted for me. I only ran it twice to account for the possibility
that someone will enter part of the data, close the workbook and
reopen it a little later. I thought it would be slick to have it
automatically copy the page when opening, as we used to do it
manually. The "Blank" worksheet is just a template sheet with a lot
of formulas, labels ect... I have a habit of partially inputting data
(for shifts 1 and 2) then going back towards the end of the 3rd shift
and entering the rest. If this were in the workbook open event it
would be transparent no matter how many times you open and close it.

Thanks,
Mike

On Thu, 28 Apr 2005 09:04:56 +0100, "Bob Phillips"
wrote:

Mike,

Sounds like you are trying to do it more than once a day. Try this if so

Sub blank1()
Dim oWs As Worksheet
On Error Resume Next
Set oWs = Sheets("Blank")
On Error GoTo 0
If Not oWs Is Nothing Then
oWs.Copy Befo=Sheets(1)
ActiveSheet.Name = Format(Date - 1, "mm-dd-yyyy hh-mm-ss")
End If
End Sub