How do I search an Excel Range?

[GusBrown]

Hi all,

In Access 97 I've declared an Excel object:

Dim appExcel = Excel.Application
Dim xlsReport = Excel.Workbook

Set appExel = CreateObject("Excel.Application&quot
Set xlsReport = appExcel.Workbooks.Add("c:\temp.xls&quot

Then I've populated a worksheet and now I want to search the range Bx:By for a particular string but I can't figure out how to use the .Find function. Can anyone help me out?

Thanks,

Gus

 

[illini]

Gus,

Try this out...

'Select a range
Excel.Application.Range("A2:A22&quot.Select

'initiate Find for 'XYZ'
Excel.Application.Selection.Find(What:="XYZ", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate -illini