Private Sub Worksheet_Activate()
me.Listbox1.ListFillRange = ""
me.Listbox1.clear
for each sh in ThisWorkbook.Worksheets
me.listbox1.AddItem sh.name
Next
End sub

Put this in the sheet that will contain the listbox.

--
Regards,
Tom Ogilvy


"Greg Brow" wrote in message
...
Hi all

I am looking to use a listbox that look at the names in a workbook called
client names, What I am looking to do is have the name of the individual
worksheets appear in the list box so when the user select the name they
need
it opens that page automatically.

Can this be done so when we have a new patient come into our care we can
just add a new worksheet and the rest of the program automatically updates
itself.


Thanks again

Greg