Automate cell selection

Hi,
How do I automate cell selection? For example if I want to select cells A1,C1 and E1 then A2,C2,E2 and so on,each time using the data stored in these cells.

Thanks,
Mayank.

Sub DemoApproach()
Dim i As Long, rng As Range
Dim cell As Range, sStr As String
For i = 1 To 10
Set rng = Cells(i, 1).Range("A1,C1,E1")
' msgbox rng.Address
For Each cell In rng
sStr = sStr & cell.Address(0, 0) & ","
Next
sStr = Left(sStr, Len(sStr) - 1)
sStr = sStr & vbNewLine
Next
MsgBox sStr
End Sub

--
Regards,
Tom Ogilvy

"mayanklal" wrote:

>
> Hi,
> How do I automate cell selection? For example if I want to select cells
> A1,C1 and E1 then A2,C2,E2 and so on,each time using the data stored in
> these cells.
>
> Thanks,
> Mayank.
>
>
> --
> mayanklal
> ------------------------------------------------------------------------
> mayanklal's Profile: http://www.excelforum.com/member.php...o&userid=35236
> View this thread: http://www.excelforum.com/showthread...hreadid=551035
>
>