You started out by saying

In an Excel workbook I have a login sheet which is hidden

I guess you meant it isn't hidden.

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
cell.Activate
cell.Interior.ColorIndex = 6
set sh = worksheets(cell.Value)
msgbox sh.name
Next

--
Regards,
Tom Ogilvy


"Nigel Bennett" wrote in message
...
On the list I would like also to select one of the cells
and have the focus go directly to the sheet in that cell
name