Hi team,

I have a list box with about 900 entries entries in it.

For specific items (about 200 ~ 300 of them) I need a warning window to pop up.

I've got the test code done.

What I'm after is a better, tidier way to list the values I'm searching for as the search criteria THING_xx, as I've said will be 200 or 300 items.

The search text won't be sequential per my demo text (just to make life harder).

If push comes to shove, I might have to do a swag of these things :-(

Select Case True
Case (InStr(THING_List(), "(THING_01)") > 0), (InStr(THING_List(), "(THING_02)") > 0) , (InStr(THING_List(), "(THING_03)") > 0)
UserForm8.Label1123.Visible = True
UserForm8.Label1114.Visible = True
MsgBox "message box text.", , "MSGBOX TITLE"
End Select

As always your help is appreciated


Regards
Kes