Assume the sheetname is Login

Dim cell as Range, rng as Range
dim sh as Worksheet
With worksheets("Login")
set rng = .range(.Cells(1,1),.Cells(1,1).End(xldown))
End with

for each cell in rng
set sh = worksheets(cell.Value)
msgbox sh.name
Next


--
Regards,
Tom Ogilvy

"Nigel Bennett" wrote in message
...
This one is a bit complicated and I understand if anyone
wants further clarification

Scenario

In an Excel workbook I have a login sheet which is hidden
in Column A of the login sheet I Have a list of all the
sheets in the workbook. ( say A1 thru A10)

Currently what happens is when the workbook opens I have a
piece of code which activates each individual sheet and
then carrys out some action. then it goes to the next
sheet and so on, this becomes a very lengthy process as
the code can be quite long

What I am looking for is code where it looks at the login
sheet grabs the value in Cell A1 and carry's out the
action then as long as there is a value in column A it
will keep refreshing the sheets, ie it moves to cell A2
passes the sheet name back to the code and continues on.
As soon as it comes across an empty value in Column A (ie
column A11) it stops and exits the code.

If you need further clarification please do not hesitate
to email me


Thanks in Advance

Nigel