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

IF? you are trying to put "found" in the next column for a find, I suggest
you look in vba help index for FINDNEXT. There is an excellent example you
can easily modify without selections.


--
Don Guillett
SalesAid Software

"funkymonkUK"
wrote in message
...

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

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

Many thanks Tom that worked great thank you


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