Correct Placement of MsgBox for Item which does not exits in ComboBox

[NimishK]

Hello Just require correct placement of MSGBOX in the following code if item does not exists in combobox

Private Sub ComboBox1_Change()
Dim i As Long
    With Me.ComboBox1
       If Not IsArrow Then
       .List = Worksheets("Sheet1").Range("A2").CurrentRegion.Offset(1).Value
       
        If .ListIndex = -1 And Len(.Text) Then
            For i = .ListCount - 1 To 0 Step -1
                If InStr(1, .List(i), .Text, 1) = 0 Then .RemoveItem i
             Next i
            .DropDown
        End If


    End If
    End With
End Sub

Regards
NimishK

 

[pike]

Hello,
Basically you're looking for the row number via list index number after the search. You're right they cant be combined.