hey Tom

What is the significance of 25 in the 0 to 25 part of the
code?

And also I dont unmderstand the (0, i * 9) in the below
part of the code. Can you please tell me how this works?

rng1.Offset(i, 0).Value = _
Rng.Offset(0, i * 9).Value


-----Original Message-----
Sub Copy9th()
Set rng = Range("AA3")
Set rng1 = Range("y4")
For i = 0 To 25
rng1.Offset(i, 0).Value = _
rng.Offset(0, i * 9).Address
Next

End Sub


--
Regards,
Tom Ogilvy

"todd Huttenstine"
wrote in message
...
Hey guys,

Its been a while. Hope everyone is doing well. Anyway
here is what I need. I need a code that will look in
cell
AA3, AJ3, AS3, BB1, etc... (this is every other 9th cell
going towards the right until the end of the
spreadsheet). I need the code to look in all these
cells
and then list the cell values in a vertical range
starting
in cell Y4.


Thank you

Todd Huttenstine


.