Populate listbox with current date value

I am trying to populate a listbox in a userform with only certain data. Currently I am able to populate all rows in a worksheet but I need to have only rows with the current date to show. In col A is the date and col B is a persons name.

Private Sub UserForm_Initialize()
    With Sheets("Time")
        Set rng = .Range(.Cells(2, 8), .Cells(.Rows.Count, 1).End(xlUp))
        Me.ListBox1.RowSource = rng.Address(external:=True)
    End With
End Sub

Thanks for any help.