rango rebelde

[alfa18]

hola amigos,
estoy trabajando con un rango con un tratamiento "loco", que me trae de cabeza, a ver si me podeis aclarar mis dudas.

Trabajo con este codigo en una macro:

Código vb:

Workbooks.Open (ThisWorkbook.Path & "\" & "XXX.xls")
ActiveWorkbook.Worksheets("Hoja1").Range("E1").Select
'Bajamos hasta la última fila adyacente, que contenga datos
Selection.End(xlDown).Select
For contador = 1 To ActiveCell.Row
        MsgBox Range("E" & contador).Value
Next contador
 

Aunque el codigo no me da errores de ejecucion, y la variable contador recorre el rango deseado, el bucle(el msgbox) no me muestra nada!!! ¿Alguien me puede explicar que pasa?

Gracias, saludos:D