Visual Basic para Aplicaciones - Capturar rango de celdas

Hola Amigos,

Estoy creando una aplicación que abre un fichero Excel del que he de seleccionar unas celdas para procesar el contenido. Si yo sé el rango de las celdas es fácil.

Mi programa abre la hoja Excel

Código:
Dim xlsApp As Excel.Application
Dim xlsWb As Excel.Workbook
Dim xlsSht As Excel.Worksheet

Set xlsApp = New Excel.Application
xlsApp.Visible = True

xlsApp.DisplayAlerts = False
Set xlsWb = xlsApp.Workbooks.Open(strRutaFile)
Set xlsSht = xlsWb.Worksheets(1)

pero no sé como capturar el rango de celdas que desea el operador para que lo procese el programa. Tendría que picar en una celda origen y otra final y yo recoger el contenido de las celdas del rango para luego poder procesarlo.

Un saludo y gracias.

Jose

Prueba ésto al abrir el Libro.
También podría usarse despe un Botón de comando

Private Sub Workbook_Open()
Dim miRango As Range
Set miRango = Application.InputBox(prompt:="Selección", Type:=8)
miRango.Select
End Sub

El rango debe escribirse como siempre: Celdas extremas separadas por dos puntos :

Suerte
Carlos