Getting cell number from excel sheet

[ssvali]

Try this code

Code:

Set ObjExcel = CreateObject("Excel.Application")
ObjExcel.visible = TRUE
Set sWorkbook = ObjExcel.Workbooks.Open("z:\Sample1.xls")
Set sWorksheet = sWorkbook.Worksheets("Sheet1")

rCnt = sWorkbook.Worksheets("Sheet1").UsedRange.Rows.Count
cCnt = sWorkbook.Worksheets("Sheet1").UsedRange.Columns.Count
For i = 1 to rCnt

    For j = 1 to cCnt

        cValue = sWorkbook.Worksheets("Sheet1").Cells(i,j).Value
        If cValue = "Result" Then
            Print "Row Number - " & i & "  Column Number " & j
        End If

    Next

Next