I have worked this out now. I used:


Code
-------------------
Dim wbs As Worksheet

For Each wbs In Worksheets
If wbs.Name < "ignore_sheet" Then
ListBox1.AddItem wbs.Name
End If
Nex
-------------------

--
bluegn
-----------------------------------------------------------------------
bluegnu's Profile: http://www.excelforum.com/member.php...fo&userid=3610
View this thread: http://www.excelforum.com/showthread.php?threadid=56057