Hi i have an error at this point in my module saying application
defined or object error defined error.
error 1004

' Check the next nearby spot for our item.
If ([Environment].Offset(shopper.Offset(0, 2) + Row, _
shopper.Offset(0, 3) + Column) = _
shopper.Offset(0, 6)) Then

this is the full program
---------------------------------------------------------------------------------------
' This is the nearby area scanning routine.
Sub LookAround(shopper As Range)

' Check the eight neighbouing squaree to see if our item is
nearby.
For Row = -1 To 1

' For simplicity we will check our own square too,
' but do not expect to ind the item we seek.
For Column = -1 To 1

' Check the next nearby spot for our item.
If ([Environment].Offset(shopper.Offset(0, 2) + Row, _
shopper.Offset(0, 3) + Column) = _
shopper.Offset(0, 6)) Then

' Note that we have found the item of interest.
shopper.Offset(0, 5) = "Found"
Exit For
End If

Next Column

Next Row

End Sub
-------------------------------------------------------
Please let me know the solution ASAP
Regards,
Ram