View Single Post
  #1   Report Post  
Old May 18th 05, 07:02 PM
Ron de Bruin
Posts: n/a
Default Help with: ListBox1.AddItem (ws.Name)

Try this

It use the sheet index

Dim ws As Worksheet
Dim a As Integer
For a = 5 To ThisWorkbook.Worksheets.Count
ListBox1.AddItem Sheets(a).Name
Next a

Regards Ron de Bruin

"NightProbe" wrote in message ...
Using the following, how can I cause the result to return all but the
first four worksheet out of a 10 worksheets workbook?

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ListBox1.AddItem (ws.Name)
Next ws

Best Regards