Variante en For Each

No te conviene seleccionar el rango a revisar y luego ejecutar una macro que
tenga:

Dim R As Range
For Each R In Selection
MsgBox "Revisando: " & R.Address
Next R

Sino creo que lo que vos querés es ir 150 más abajo de la celda activa:

Dim act As String
act = ActiveCell.Address
Dim R As Range
For Each R In Worksheets("Hoja1").Range(act & ":" & Range(act).Offset(5,
0).Address)
MsgBox R.Address
Next R

Podés cambiar el 0 del offset para ir hacia la izq o derecha.

Sirve??? no entendí muy bien el planto pero creo estar en un rumbo mmmaaass
o menos cercano al tuyo

José Luis
Guns And Roses


"Fabian" escribió en el mensaje
news:

Dim R As Range
myselección = InputBox("Cargue el Rango a revisar")
For Each R In Worksheets("Hoja1").Range(myselección)
Este código funciona, pero tengo que cargar el rango manualmente
Traté de usar, por ejemplo
myselección=ActiveCell.Range("A1:C50").Select
Obtengo la selección en la hoja, pero no obtengo el rango seleccionado en

la

variante.
Se puede cargar el rango en una variante a partir de la celda activa?
La finalidad de esto es revisar 150 celdas por vez, partiendo de la celda
activa.Gracias.
Fabian