Hi

Try

For Each MYC In R1
MsgBox MYC.Value & ", " & Offset(MYC,1,0).Value
Next MYC


--
Regards
Roger Govier

"FARAZ QURESHI" wrote in message
...
I have two ranges as follows:
A1:A5 with values A, B, C, D, E (R1)
and
B1:B5 with values 1, 2, 3, 4, 5 (R2)

What kind of looping structure would lead to display:
A1
B2
C3
D4
E5
in message boxes? Following code displays unwanted entries like:
A1, A2, A3, A4, A5, B1, B2, B3, B4, B5, C1, C2, C3, C4, C5, D1, D2, D3,
D4,
D5, E1, E2, E3, E4, E5
---
For Each MYC In R1
For Each MYC2 In R2
MsgBox MYC.Value & ", " & MYC2.Value
Next MYC2
Next MYC
---
How 2 overcome this problem???

Thanx in advance for all tyour expertise.

Best Regards