Populate Excel Userform with Sheet names
 

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 visably activates each
sheet each time the listbox is repopulated.

Thanks

...pc

Populate Excel Userform with Sheet names
 

Hello PC,

Paste this code into your program.

I = 1
For Each ws In Worksheets
ComboBox1.AddItem (Sheets(I).Name)
I = I + 1
Next ws

Hope this helps,
Leith Ros

--
Leith Ros
-----------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...fo&userid=1846
View this thread: http://www.excelforum.com/showthread.php?threadid=34586

Populate Excel Userform with Sheet names
 

PC

For Each ws In ActiveWorkbook.Worksheets
ListBox1.AddItem ws.Name
Next ws

--
Dick Kusleika
Excel MVP
Daily Dose of Excel
www.dicks-blog.com

PC wrote:
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 visably activates each
sheet each time the listbox is repopulated.

Thanks

..pc