Dim sh as Worksheet
for each sh in ActiveWorkbook.Worksheets
Me.Listbox1.AddItem sh.name
Next



Private Sub Listbox1_Click()
worksheets(Me.Listbox1.Value).Select
End Sub

--
Regards,
Tom Ogilvy


"ajw150 " wrote in message
...
Hi,

Does anyone have/know where to get, and example of this working in
practice?

Andrew


---
Message posted from http://www.ExcelForum.com/