How to search a value in excel sheet using vb script

[venkatbatchu]

Hi Basanth,
Thanks for giving the logic and i implemeted and its working fine but which is taking more time to execute, can u please try to reduce the execution time

Code:

set a=Createobject("Excel.Application")
set b=a.Workbooks.open("D:\av.xls")
set c=a.worksheets("sheet1")
m=2
For i=1 to 40 step 1 'For number of rows i.e it will be searching among the first 40 rows
For j=1 to 3 step 1 ' for number of columns i.e it wil be searchinf among the first 3 columns
d=c.cells(i,j).value
If d="Tokyo" then
datatable.Value(1,1)=i
datatable.Value(2,1)=j
datatable.SetCurrentRow(m)
m=m+1
end if
Next
Next
b.close
datatable.Export("d:/av1.xls")

Please help me in this reagard,

Thanks in advance,
Venkat.