I need a little help with this macro. It updates the spreadsheet to th
next week and has been working fine for about 6 months,but now when
try to run it I recieve this error;

The instruction at "0x300f8a40" reference memory at "0x000001ac". Th
memory could not be "read".

Below is the code for the macro. Any help would be appreciated
Thanks.

Sub update()
'
' test Macro
' Macro recorded 1/7/04 by keenem
'

'
ActiveSheet.Select
ActiveSheet.Copy Befo=Sheets(1)
Range("M10:M58").Select
Selection.Copy
Range("D10:D58").Select
Range("D58").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
SkipBlanks:= _
False, Transpose:=False
Range("E10:K58").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.LargeScroll Down:=-4
Range("C6").Select
Selection.Copy
Range("C5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Select
Application.CutCopyMode = False
ActiveSheet.Name = Range("D5").Value2
Range("E10").Select
ActiveWorkbook.save
End Su

--
Message posted from http://www.ExcelForum.com