hi i am getting an error message of "runtime 91: Object variable or with block variable not set"

this is my code:

Sub test2()
Dim cell As Object
Dim strFileFound As String
For Each cell In Range("a11:a56")

cell.Activate
Range("i11").Select
Selection.CurrentRegion.Select
strFileFound = Selection.Find(what:=ActiveCell.Value & " for " & Range("e4").Value, LookIn:=xlValues, lookat:=xlPart).Value
If strFileFound <> "" Then ActiveCell.Offset(0, 1).Value = "Found"
Beep
Next cell
End Sub

It keeps on highlighting the line which starts with "strfilefound..."