Private Sub populate()
' clear the Listbox
Me.ListBox2.Clear
' declare variables
Dim i As Long, lRow As Long, ws As Worksheet
' set ws to the desired sheet
Set ws = Application.Worksheets("POSTAGE")
' determine the last row of that desired sheet
lRow = ws.Cells(Rows.count, 1).End(xlUp).Row
' populate the Listbox by looping down the rows of ws
With Me.ListBox2
For i = lRow To 8 Step -1
'determine if this customer should be added to combobox list
If UCase(ws.Cells(i, 7).Value) = "POSTED" Then
.AddItem Cells(i, 2) 'adds the customer name to combobox first column
.List(.ListCount - 1, 1) = Cells(i, 1) 'add the date to second column of line just added
.List(.ListCount - 1, 2) = Cells(i, 3) 'add the item to third column of line just added
End If
Next i
End With
End Sub