Populate Excel Listbox

  • Thread starter Thread starter PC
  • Start date Start date
P

PC

Hi,

I'm using this piece of code to populate an excel userform listbox with the
name of each worksheet in a workbook

i = 1
For Each ws In Worksheets
Worksheets.Select
Sheets(i).Activate
ListBox1.AddItem (ActiveSheet.Name)
i = i + 1
Next ws


Is there a better way I can do this as this could visable activates each
sheet each time the listbox is repopulated.

Thanks

...pc
 
i = 1
For Each ws In Worksheets
ListBox1.AddItem (Worksheets(i).Name)
i = i + 1
Next ws


--

HTH

RP
(remove nothere from the email address if mailing direct)
 
Back
Top