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



johnb wrote:

Can I populate a listbox with worksheet names but skip the first sheet
(sheet1)?

--

Dave Peterson