Step down a list

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi All..........
I have a list that starts in B5 and extends downward for I don't know how
many rows. I would like to select B5 and run MyCoolMacro, then step down to
B6 and run MyCoolMacro again, etc etc as far down as there are cells in
column B with values in them..........help please

Vaya con Dios,
Chuck, CABGx3
 
Sub RunMyCool()
Dim rng as Range, cell as Range
With Worksheets("Sheet1")
.Activate
set rng = .Range(.Range("B5"),.Range("B5").End(xldown))
End With
for each cell in rng
cell.Select
MyCoolMacro
Next
End Sub

Assumes your macro works on the activecell.
 
Thanks very much Tom. As usual, your solution does the trick very nicely.

Vaya con Dios,
Chuck, CABGx3
 
Back
Top