code:

---

 
$SourceObjectRow = $ObjExcel.Range("A1:C2500").FindFindFind($SourceObject,,,xlWhole,,,,)
 

---

code:

---

 
$SourceObjectRow = $ObjExcel.Range("A1:C2500").FindFindFind($SourceObject)
 

---

quote:

---

expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase,úMatchByte)

LookAt Optional Variant. Can be one of the following XlLookAt constants: xlWhole or xlPart.

---

code:

---

$SourceObjectRow = $ObjExcel.Range("A1:C2500").FindFindFind($SourceObject,,,$xlWhole,,,,)

---

code:

---

$SourceObjectRow = $ObjExcel.Range("A1:C2500").Find($SourceObject,,,$xlWhole,,,,)
 

---

code:

---

 $SourceObjectRow = $ObjExcel.Range("A1:C2500").Find($SourceObject,,,xlWhole=true,,,,)
 

---

Nope still don't work

I think Shawn is an expert on this .

Thanks

[ 20. May 2003, 13:09: Message edited by: Richard Farthing ]

code:

---

 Sub FindStrings()
       Dim firstCell, nextCell, stringToFind As String
       ' Show an input box and return the entry to a variable.
       stringToFind = _
           Application.InputBox("String to find?", "Search String")
       ' Set an object variable to evaluate the Find command.
       Set firstCell = Cells.Find(what:=stringToFind, lookat:=xlWhole, _
           searchdirection:=xlPrevious)
       ' If the string is not found, show this message box.
       If firstCell Is Nothing Then
           MsgBox "Search Value Not Found.", vbExclamation
       Else
           ' Otherwise, find the next occurrence of the search text.
           nextCell = _
               Cells.FindNext(after:=Range(firstCell.Address)).Address
           ' Show its address in a message box.
           MsgBox nextCell
           ' Continue finding the next occurrence as long as the address of
           ' the found cell is not the same as the first cell.
           Do While firstCell.Address <> nextCell
               nextCell = Cells.FindNext(after:=Range(nextCell)).Address
               MsgBox nextCell
           Loop
       End If
   End Sub 

---

Got to leave now, looking forward to see what you came up with

[ 20. May 2003, 16:40: Message edited by: Jochen ]

code:

---

$Row = $Excel.Range("A1:A5").Find("Rich",,-4163,2)

?"Value=" $Row.Value
?"Row=" $Row.Row
?"Column=" $Row.Column

---

code:

---

$SourceObjectRow = $ObjExcel.Range("A1:C2500").Find("$SourceObject",,-4163,1) 

---