I found this code here , and its great one

For Each ws In ActiveWorkbook.Worksheets
ListBox1.AddItem ws.Name
Next ws
now how to add double click on the sheet in the list box and open this sheet ???
any Idea's ??
or is it possible ?