Populating listbox with sheet names

D

Dave Peterson

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
 
Top