Forgot Code for last post

[Jahsonn]

Private Sub UserForm_Initialize()
Dim rng As Range
Dim rw As Long, sh As Worksheet
Dim bStart As Boolean


rw = 17
For Each sh In ActiveWorkbook.Worksheets
If bStart Then
Worksheets("Control").Cells(rw, 2).Value = sh.Name
rw = rw + 1
End If
If sh.Name = Worksheets(4).Name Then bStart = True
Next


With Worksheets("Control")
Set rng = .Range(.Cells(17, 2), .Cells(Rows.Count, 2).End
(xlUp))
End With
With Me.ListBox1
..Clear
..List = rng.Value
End With

End Sub

 

[Tom Ogilvy]

With Worksheets("Control")
Set rng = .Range(.Cells(17, 2), _
.Cells(Rows.Count, 2).End(xlUp))
End With
With Me.ListBox1
.Clear
if rng.count > 1 then
.List = rng.Value
Else
.AddItem rng.Value
End if
End With

End Sub