Try this, though you make life more difficult by putting the films on different sheets.
Sub x()
Dim rFind As Range, sFind As String, sAddress As String, ws As Worksheet, r As Long
sFind = Sheets("Search").Range("B2").Value
r = 5
For Each ws In Worksheets
If ws.Name Like "Movie List*" Then
With ws.Columns(1)
Set rFind = .Find(What:=sFind, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not rFind Is Nothing Then
sAddress = rFind.Address
Do
Sheets("Search").Cells(r, 2).Value = rFind
r = r + 1
Set rFind = .FindNext(rFind)
Loop While rFind.Address <> sAddress
End If
End With
End If
Next ws
End Sub
Bookmarks