Thread: Step down a list

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.

--
Regards,
Tom Ogilvy


"CLR" <CLR@discussions.microsoft.com> wrote in message
news:16D62797-54C6-40CD-B514-04C82FC2BA5F@microsoft.com...
> 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
>

Thanks very much Tom. As usual, your solution does the trick very nicely.

Vaya con Dios,
Chuck, CABGx3


"Tom Ogilvy" wrote:

> 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.
>
> --
> Regards,
> Tom Ogilvy
>
>
> "CLR" <CLR@discussions.microsoft.com> wrote in message
> news:16D62797-54C6-40CD-B514-04C82FC2BA5F@microsoft.com...
> > 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
> >
>
>
>