runtime error 1004 method range of object global failed

The error message suggests that there is no range named 'list' in the active
workbook.

Your code snippet was not complete. If this doesn't run I think it's pretty
conclusive that 'list' is not a named range.

Sub Test()
Dim CurCell As Range
For Each CurCell In Range("List").Cells
Debug.Print CurCell.Address
Next
End Sub


--
Jim
"dreamz" <dreamz.228zez_1138288504.3943@excelforum-nospam.com> wrote in
message news:dreamz.228zez_1138288504.3943@excelforum-nospam.com...
|
| what's wrong with this code? "list" is a named range.
|
|
| Code:
| --------------------
|
| Private Sub Test()
| Dim CurCell As Object
|
| Application.ScreenUpdating = False
|
| For Each CurCell In Range("List")
|
| --------------------
|
|
| thanks.
|
|
| --
| dreamz
| ------------------------------------------------------------------------
| dreamz's Profile:
http://www.excelforum.com/member.php...o&userid=26462
| View this thread: http://www.excelforum.com/showthread...hreadid=505327
|

CurCel should be declared as type Range not Object. Otherwise there is
nothing wrong (So long as List is a valid named range). I might do something
more like

Private Sub Test()
Dim CurCell As Range
dim rngList as range

Application.ScreenUpdating = False
on error resume next
set rngList = Range("List")
on error goto 0

if rnglist is nothing then
msgbox "Range List does not exist"
else
For Each CurCell In rngList

--
HTH...

Jim Thomlinson


"dreamz" wrote:

>
> what's wrong with this code? "list" is a named range.
>
>
> Code:
> --------------------
>
> Private Sub Test()
> Dim CurCell As Object
>
> Application.ScreenUpdating = False
>
> For Each CurCell In Range("List")
>
> --------------------
>
>
> thanks.
>
>
> --
> dreamz
> ------------------------------------------------------------------------
> dreamz's Profile: http://www.excelforum.com/member.php...o&userid=26462
> View this thread: http://www.excelforum.com/showthread...hreadid=505327
>
>

dreamz wrote:
> what's wrong with this code? "list" is a named range.
>
>
> Code:
> --------------------
>
> Private Sub Test()
> Dim CurCell As Object
>
> Application.ScreenUpdating = False
>
> For Each CurCell In Range("List")
>
> --------------------
>
>

Go to Insert/Name/Define , find "list" on a list and check if you see
name of worksheet in that line.
If yes, it means that "list" is defined on specific sheet only, and
doesn't not exist when other sheet is active.
If you don't see a name of worksheet -> I don't know why it doesn't work