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