Dim Excel_filename As String
Dim worksh As New Excel.Worksheet ' an instance of excell work sheet
Dim excelobj As New Excel.Workbook 'An instance of excell workbook
Dim Location_Excel_File As String
Dim intConf As Integer
Dim i As Integer
Excel_filename = "C:\Accounts.xls"
Set excelobj = Workbooks.Open(Excel_filename)
Set worksh = excelobj.Worksheets(1)
worksh.Activate
For i = 1 To 4957
MsgBox worksh.Cells(i, 1) & " -- " & worksh.Cells(i, 2)
Next