Automate cell selection

[mayanklal]

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

Thanks,
Mayank

 

[Guest]

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