What is the code to display sheet names in a combobox? I
need it to display every sheet after Worksheets(4). This
means I need it to display the 5th sheet and beyond. If
there are only 4 sheets and no sheet5, then I need for
nothing to be displayed in the combobox.

Thanx

Todd Huttenstine

for i = 5 to sheets.count
listbox1.AddItem sheets(i).Name
Next

--
Regards,
Tom Ogilvy


Todd Huttenstine wrote in message
...
What is the code to display sheet names in a combobox? I
need it to display every sheet after Worksheets(4). This
means I need it to display the 5th sheet and beyond. If
there are only 4 sheets and no sheet5, then I need for
nothing to be displayed in the combobox.

Thanx

Todd Huttenstine

Thank you

-----Original Message-----
for i = 5 to sheets.count
listbox1.AddItem sheets(i).Name
Next

--
Regards,
Tom Ogilvy


Todd Huttenstine
wrote in message
...
What is the code to display sheet names in a combobox?
I
need it to display every sheet after Worksheets(4).
This
means I need it to display the 5th sheet and beyond. If
there are only 4 sheets and no sheet5, then I need for
nothing to be displayed in the combobox.

Thanx

Todd Huttenstine


.

Todd,

Try something like the following:

Dim N As Long
With Me.ListBox1
.Clear
For N = 5 To ThisWorkbook.Worksheets.Count
.AddItem ThisWorkbook.Worksheets(N).Name
Next N
End With

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"Todd Huttenstine" wrote in
message ...
What is the code to display sheet names in a combobox? I
need it to display every sheet after Worksheets(4). This
means I need it to display the 5th sheet and beyond. If
there are only 4 sheets and no sheet5, then I need for
nothing to be displayed in the combobox.

Thanx

Todd Huttenstine