hola, no termino de entender bien lo que necesitas por lo que te paso el codigo y luego que seleccionas la celda(5,1) te puse un msgbox para que veas. Modificalo luego a lo que necesites
Espero te sirva
Código:
Option Explicit
' Importante : Agregar la referencia a Micorosft Excel xx object library
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Form_Load()
'Variable de tipo Aplicación de Excel
Dim objExcel As Excel.Application
'Una variable de tipo Libro de Excel
Dim xLibro As Excel.Workbook
Dim Col As Integer, Fila As Integer
'creamos un nuevo objeto excel
Set objExcel = New Excel.Application
'Usamos el método open para abrir el archivo que está _
en el directorio del programa llamado archivo.xls
Set xLibro = objExcel.Workbooks.Open("C:\lista.xls")
'Hacemos el Excel Visible
objExcel.Visible = True
With xLibro
' Hacemos referencia a la Hoja
With .Sheets(1)
Cells(5, 1).Select
MsgBox Cells(5, 1).Value
End With
End With
'Cerramos el archivo y eliminamos los objetos si ya no los usamos
objExcel.Workbooks.Close
Set objExcel = Nothing
Set xLibro = Nothing
End Sub