Listbox and validation question

[blanch2009]

I'm using the following code.

How can you or is there a way of using the listbox itself to enter a value that isn't in the list?
When I try to do this, validation throws an error that the value in not in the list. I know, I'm trying to add the value.

I just hope I've explained myself clearly at this point.

Thank you
Don

Private Sub Worksheet_Change(ByVal Target As Range)
'Code by Sumit Bansal from Online Excel Tips & Tutorials
' To Select Multiple Items from a Drop Down List in Excel
Dim Oldvalue As String
Dim Newvalue As String
Application.EnableEvents = True
On Error GoTo Exitsub
If Target.Address = "$I$5" Or Target.Address = "$L$11" Then

If Target.Value = "" Then GoTo Exitsub Else
Application.EnableEvents = False
Newvalue = Target.Value
Application.Undo
Oldvalue = Target.Value
If Oldvalue = "" Then
Target.Value = Newvalue
Else
If InStr(1, Oldvalue, Newvalue) = 0 Then
Target.Value = Oldvalue & ", " & Newvalue
Else:
Target.Value = Oldvalue

End If
End If
End If


Application.EnableEvents = True
Exitsub:
Application.EnableEvents = True

End Sub

 

[diddi]

The listbox control does not allow for text entry. you would need to use code to .addItem to the listbox or if the listbox list is a defined range you would need to update the range to include the extra items