Edward,

Sub NewSub()
Dim rRange As Range
Dim myCell As Range

Set rRange = Worksheets("Sheet2").Range("A1:A1000")
Set myCell = rRange.Find(What:=100, LookIn:=xlValues, LookAt:=xlWhole)
If Not myCell Is Nothing Then
MsgBox myCell.Address & " has the value ""100"""
Else
MsgBox "Not Found"
End If
End Sub

HTH,
Bernie
MS Excel MVP



"Edward Ulle" wrote in message
...
I have a worksheet say Sheet1 that has values in column 1.

On Sheet 2 in column 1 I have formulas such as "=Sheet1!A1" etc.

I set the range to Worksheet("Sheet2").Range("A1:A1000").

The value 100 exist in column 1 of Sheet1.

I want to search the range for 100.

Set rRange = Worksheet("Sheet2").Range("A1:A1000")
rRange.Find(What:=100,LookIn:=xlValues,LookAt:=xlW hole)

Return Nothing.

Any suggestions?







*** Sent via Developersdex http://www.developersdex.com ***