Hi,

you could get into a mess using second ,it's a reserved word and with out
seeing your code it's hard to be much help but maybe this

For col = 2 To 25
first = Sheets("Rates").Cells(2, col)
sec = Range(Cells(3, col), Cells(186, col))
next

Mike

"HarryGuy" wrote:

Windows XP and Excel 2003

The first time through the program should read:

With Active Sheet
.First = Sheets("Rates").Range("B2")
.Second = Sheets("Rates").Range("B3:B186")
End With

The next time through the Ranges should read "C2" and "C3:C186"

Then next time "D2" and "D3:D186" and so on until it reaches "X2"and
"X3:X186"

Can someone suggest a good way to do this. Please.




.