Private Sub UserForm_Initialize()
Do Until Sheet1.Range("a2").Offset(counter).Value Now + 14
counter = counter + 1
Loop
UserForm1.ListBox1.ColumnCount = 3
UserForm1.ListBox1.List() = Sheet1.Range(Cells(2, 1), Cells(counter,
3)).Value
End Sub


Thank you Bob

Greg