#Define xlValues -4163 #Define xlWhole 1 #Define xlPart 2 lcSearchValue = 'find me' lcXLS = 'c:\blah blah\myexcelfile.xls' oExcel = Createobject("Excel.Application") With oExcel .Workbooks.Open(lcXLS) With .ActiveWorkbook.ActiveSheet loRange = .Range('A:A').Find(lcSearchValue,,xlValues,xlPart) If !Isnull(loRange) ? .Range(Stuff(loRange.Address(),1,3,'$C$')).Cells(1,1).Value Else ? 'Not found' Endif ENDWITH .quit EndwithWith xlPart you're searching values that's contained (ie: like '%find me%'. For exact match use xlWhole. Also Find has parameter for case sensitivity (default case insensitive).