Surely, there is more than this. You need not select. and do you really need
to goto 2000

For Each Cel In Worksheets("AllTeams").Range("A2:AB2000")
'what do you want to do with each cell
next cel

--
Don Guillett
SalesAid Software

"Jimmy" wrote in message
...
Hi folks,

I don't have much programming experience, but have cobbled together a
data collation model for several users. All have successfully used this
with
the exception of one who keeps receiving the following error when
attempting
to perform a number of actions : Run-time error 57121- Application-defined
or
Object-defined error.

Here are a few piece's of code that are highlighted when the error occurs
:

For Each Cell In Worksheets("AllTeams").Range("A2:AB2000")

Sheets("AllTeams").Select

Anybody suggest a cause for this error and any possible solutions?

Thanks

Jim.