If this code is in a General module and the AddNewData isn't on the activesheet,
you'll have trouble.

worksheets("sheetwithAddNewDataNameHere").select
Range("AddNewData").Select

Or you could use:

application.goto Range("AddNewData"), scroll:=true 'or false




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

--

Dave Peterson