Duuuuudes:

I have a problem with scrolling to the bottom of a listbox in excel '03. I'm
using the listbox control in vba, not the excel forms control. Anyway, when I
scroll to the bottom of the list, it won't let me see the last item in the
list box. It will stop one short and will actually have a space below the
scroll bar that looks like it could scroll down one more list item but won't.
I'm using the additem call to populate the listbox. I've tried recreating the
listbox and it will work the first time it gets populated but seems like
after repopulating it a couple times it will cause the problem. Can anyone
shed some light on why this would be doing this?

Here's the code for populating the listbox:

'repopulate the lbdate listbox
For i = 1 To wsfd.Range("FD_InProcDateData").Count
TempDate = wsfd.Range("FD_InProcDateData").Cells(i).Value
TempDay = Weekday(TempDate)
Select Case TempDay
'sunday for facility x
Case 1
With wsr.Range("R_Location")
Worksheets("Report").lbdate.AddItem TempDate & " " & "V"
End With
'monday thru friday for facility y
Case 2 To 6
With wsr.Range("R_Location")
Worksheets("Report").lbdate.AddItem TempDate & " " & "BC"
End With
'saturday for facility z
Case 7
With wsr.Range("R_Location")
Worksheets("Report").lbdate.AddItem TempDate & " " & "D&D"
End With
End Select
'skip to next date
Do
i = i + 1
Loop Until wsfd.Range("FD_InProcDateData").Cells(i).Value < TempDate Or
i = wsfd.Range("FD_InProcDateData").Count
'if i equals the range count then exit the for statement. if this isn't
done, the last schedule date will show twice.
If i = wsfd.Range("FD_InProcDateData").Count Then
Exit For
End If
'backup a cell because of the next i statement
i = i - 1
Next i