Dim iCell, objExcel, objWorkbook, strLine

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\temp\233.xlsx")

strLine = InputBox("Введите искомые данные:","Поиск")
If strLine = "" Then
Wscript.Quit()
End If

With objWorkbook.Worksheets(1)
     Set iCell = .Range("A:Z").Find(strLine)
     If Not iCell Is Nothing Then
        MsgBox iCell.Address(External=True), vbInformation, ""
     Else
        MsgBox "Ячейка с искомыми данными не найдена", vbInformation, ""
     End If
End With
objExcel.Quit