Did you check to see if the range name is still valid? Maybe it has been
deleted. That is assuming that "AddNewData" is a name rather than a
variable. If it is a variable is needs to be declared and assigned a value.

"pdberger" wrote:

Good afternoon --

The code below has run fine for months and months, and suddenly errors out.
The offending line appears to be the
Range("AddNewData").Select line, which gives the following error:
Method 'Range' of object '_Global' failed

Here's the code:

Sub AddNewDataPoint()
'
' AddNewDataPoint Macro
' Macro recorded 5/9/2005 by Peter D Berger
'
'
'Unprotect sheet
ActiveSheet.Unprotect ("MedMan")


Range("AddNewData").Select ' HERE'S THE SPOT!
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("A6").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=28
Rows("53:53").Select
Selection.ClearContents
Range("A53:D53").Select
Selection.Copy
Range("A53").Select
ActiveSheet.Paste

It goes on from there, but I don't think that contributes. The code was
written on Excel 2003, and is routinely used now by machines with Excel07.

Any help would be greatly appreciated. TIA