Going to a sheet when selecting a cell
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
|