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

Range("i11").Select
Selection.CurrentRegion.Select
set rng = Selection.Find(what:=Cell.Value & " for " & _
Range("e4").Value, LookIn:=xlValues, lookat:=xlPart)
If not rng is nothing then _
cell.Offset(0, 1).Value = "Found"
beep
Next cell
End Sub

--
Regards,
Tom Ogilvy


"funkymonkUK" wrote:


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..."


--
funkymonkUK
------------------------------------------------------------------------
funkymonkUK's Profile: http://www.excelforum.com/member.php...o&userid=18135
View this thread: http://www.excelforum.com/showthread...hreadid=538409