Anthony,

I have just tried it again, and it works fine for me.

A couple of questions.

On the day you ran it, did that day's worksheet already exist?
What error dialog did you get back?

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Anthony" wrote in message
...
Hi,
I was given this script below in answer to a previous question by Bob
Phillips (thanks Bob) . Here is my previous question :
"if a log for 'today' has already been created, what code do I (well you!)
need to add to advise the user of this, and a message box asking them if
they
want to view it,then being taken there if required.,
thanks again"
the script Bob provided is
Sub Create_log()
Application.ScreenUpdating = False
With Sheets("Log master")
.Visible = True
On Error Resume Next
Set sh = Worksheets(Format(Date, "YYYY-MM-DD"))
On Error Goto 0
If Not sh Is Nothing Then
ans = Msgbox("Sheet already exists - view it?", vbYesNo)
If ans = vbYes Then
sh.ACtivate
End If
Else
.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(Date, "YYYY-MM-DD")
.Visible = False
End If
End With
Application.ScreenUpdating = True
End Sub

...but on trying this the macro stops and places the error at :

If Not sh Is Nothing Then

Can anybody resole this as I am new and haven't got a clue!
thanks