Dim test As Boolean
With listview1
For x = 0 To ComboBox1.ListCount - 1
If .ListItems(.ListItems.Count).ListSubItems(4).Text = ComboBox1.List(x) Then
test = True
Exit For
End If
Next x
If test = True Then
MsgBox "macro1"
Else
MsgBox "Macro2"
End If
End With