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

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

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 :)