Combobox v DropDown list|VBA & Macros|Excel Forum|My Online Training Hub

I use the following code, written by Philip Treacy, and it works very well.  My question is: now that my DropDown list has expanded, I would like to see more than the 8 rows that a DropDown list is limited to.  For this I need to use a ComboBox but I cannot make the ComboBox work with Philip's code.  Is there any way that this ban be achieved?

Mel

Philip's code is:

Sub DVChange(ByVal Target As Range, ByVal SheetDV As Range)

' Written by Philip Treacy
Dim OldVal As String
Dim NewVal As String
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, SheetDV) Is Nothing Then
Application.EnableEvents = False
NewVal = Target.Value
On Error Resume Next
Application.Undo
On Error GoTo 0
OldVal = Target.Value
If OldVal = "" Then
Target.Value = NewVal
Else
If NewVal = "" Then
Target.Value = ""
Else
If InStr(Target.Value, NewVal) = 0 Then
Target.Value = OldVal & ", " & NewVal
End If
End If
End If
Application.EnableEvents = True
Else
Exit Sub
End If
End Sub