Is this a listbox on a userform?

If yes, you could use something like this in the _initialize routine.

Dim iCtr as long
for ictr = 2 to activeworkbook.worksheets.count
  me.listbox1.additem activeworkbook.worksheets(ictr).name
next ictr