You could get more than one movie that way, but try this. Assuming the
movie name is "Casablanca" and the list is in column A.
Sub getit()
lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Range("A2:A" & lr)
For Each c In rng
If c.Value Like "*blanc*" Then
MsgBox "The movie is " & c.Value
Exit For
End If
Next
End Sub
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.