List Box and with date VB code

T

Todd

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("f6:f100"), Target) Is
Nothing Then
If Target <> "" Then
Target.Offset(0, 1) = Date
Target.Offset(0, 1).NumberFormat = "mm/dd/yy"
Else
Target.Offset(0, 1) = ""
End If
End If
End Sub

The above is VB code that I have in my worksheet. I have
included validation in the form of a list box in column
F. When an item is selected the date does not fill but
when you type in the first letter of one of the items in
the list box it will appear. How can I get the date to
appear when you select one of the items instead of having
to type the first letter? Thanks for the help.

Todd
 
Top